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SUMMARY  OF  CHANGES 


The  Programmer's  Guide  was  updated  to  include  Appendix  C,  Additional 
Dimensioning  Requirements.  Appendix  C  presents  additional  information  on  dimensioning 
the  program  and  is  divided  into  three  sections.  Section  1  explains  the  additional 
dimensioning  requirement  resulting  from  implementation  of  Changes  #5.  Section  2 
explains  the  dimensioning  process  using  PARAMETER  statements.  Section  3  explains  the 
dimensioning  process  without  the  use  of  PARAMETER  statements. 
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I.  INTRODUCTION 


1.1  Purpose 

^  This  programming  guide  has  been  written  for  the  Network  Repair  Level  Analysis 
(NRLA)  Model  computer  program  developed '’by  AFALC/XRS  at  Wright-Patterson  AFB, 
Ohio.  Its  purpose  is  to  describe  the  program's  structure,  logic,  input  and  output 
operations,  and  the  organization  of  data  used  in  the  program  so  that  modifications  and/or 
corrections  can  be  made.  It  is  intended  for  use  with  the  program  and  the  NRLA  User's 
Guide. 

Appendix  B,  NRLA  Program  Array  Dimensions,  must  be  carefully  read  and 
understood  by  all  users.  Incorrect  or  incomplete  redimensioning  is  the  major  user 
programming  error. 

1.2  Program  Characteristics 

"  T^The  program  is  written  in  FORTRAN  and  was  developed  on  the  AFLC  Honeywell  635 
computer.  Several  FORTRAN  features  available  (e.g.,  character  variables,  arithmetic 
expressions  in  DO  statements,  and  quoted  literals)  were  intentionally  avoided  in  order  to 
minimize  the  occurrence  of  incompatibilities  with  other  FORTRAN  compilers.  The 
program  has  also  been  compiled,  with  minor  changes,  and  executed  on  IBM  hardware. 

The  program  is  composed  of  a  main  routine,  a  block  data  subroutine,  plus  12 
additional  subroutines.  Each  of  these  is  described  in  Chapter  2  with  particular  attention 
to  data  structures  affected  and  CALLS  to  other  subroutines.  In  addition,  figures  are 
provided  to  illus+rate  data  structures  and  linkages  between  data  elements. 

1.3  Programming  Conventions 

As  the  computer  program  was  being  developed,  particular  emphasis  was  given  to 
making  the  logic  and  code  as  straightforward  and  easy  to  comprehend  as  possible.  Trade¬ 
off  questions  between  programming  ease  versus  logical  simplicity  were  resolved  by 
choosing  simplicity.  For  example,  all  numeric  data  elements  are  stored  in  single 
dimensioned  arrays  rather  than  double  or  triple  dimensioned  arrays.  Further,  the  array 
names  were  all  chosen  to  be  as  descriptive  as  possible.  Thus,  the  unit  cost  of  an  LRU  is 
stored  in  array  UCL,  its  mean  time  between  failure  is  in  array  MTBF,  the  unit  cost  of  an 
SRU  is  in  UCS,  and  so  on.  These  mnemonics  promote  the  readability  of  the  code  and  also 
preclude  potential  errors  arising  from  using  the  wrong  column  of  doubly  subscripted 
arrays.  Appendix  A  is  a  glossary  of  variable  names. 

A  second  programming  convention  relates  to  FORTRAN  statement  numbers.  They 
were  assigned,  and  sometimes  reassigned,  so  that  within  each  routine  they  would  be  in 
ascending  order.  Consequently,  it  is  easy  to  find  the  destination  for  each  GO  TO  and  the 
terminal  statement  for  each  DO  loop. 


Another  convention,  used  throughout  the  program,  concerns  DO  loops, 
programs  use  a  single  letter  variable  for  the  DO  loop  parameters,  as  in 

DO  10  I  =  1,5  and 
DO  20  I  =  J,K 


Many 


These  single  letters  may  be  reused  for  other  loops  or  a  change  to  double  (or  triple)  letter 
variables  may  occur,  e.g.,  II,  3J,  3K,  LMN,  etc.  The  result  is  that  it  is  frequently  difficult 


\  . 


to  keep  track  of  which  loop  most  recently  used  a  particular  variable  and  therefore  what 
the  value  of  the  variable  is.  This  problem  is  avoided  by  using  unique  letter-number 
combinations  for  the  loop  parameters.  The  above  loop  examples  would  appear  as 

DO  10  110  =  1,5  and 
DO  20  120  =  020, K20 

Each  variable  will  be  a  single  letter  followed  by  the  statement  number  of  the  associated 
CONTINUE  statement.  This  convention  provides  immediate  traceability  for  letter- 
number  variables  and  can  be  particularly  beneficial  for  subscript  values  in  long  and/or 
nested  loops 


2.  Program  Logic 


2.1  Introduction 


This  chapter  provides  detailed  descriptions  for  each  routine  of  the  program.  Its 
purpose  is  to  present  the  logic  and  rationale  in  sufficient  detail  that  the  reader  can  follow 
and  comprehend  the  program  statements.  It  is  not  a  line-by-line  restatement  of  the 
program  code;  nor  does  it  make  gross  statements  of  purpose  describing  50  or  more  lines  of 
code.  It  is  intended  to  be  a  compromise  between  these  extremes  and  still  be 
comprehensive. 

Despite  this  compromise,  the  reader  will  quickly  realize  that  the  amount  of 
description  is  not  always  directly  proportional  to  the  amount  of  code  being  described.  It 
has  been  assumed  that  the  reader  has  substantial  experience  with  FORTRAN 
programming;  therefore,  many  details  relating  to  FORTRAN  "mechanics"  and  to 
elementary  programming  techniques  are  casually  dismissed.  For  example,  WRITE 
statements  are  mentioned  but  not  detailed  with  regard  to  the  number  of  statements,  the 
constants/variables  written,  or  the  applicable  FORMATS.  Similarly,  details  are  not  given 
for  data  validation  tests  or  tests  preventing  array  overflow.  Conversely,  substantial 
explanation  is  given  to  some  sections  of  code  to  explicitly  clarify  the  "why"  and/or  "how" 
of  the  operations. 

2.2  MAIN 


The  operation  of  the  MAIN  routine  can  be  separated  into  five  major  functions: 

a.  Data  input  and  verification, 

b.  LRU  and  SRU  cost  computations, 

c.  Display  of  item  to  SE  relationships, 

d.  Network  solution  and  sensitivity  analysis,  and 

e.  Output  of  results. 

These  functions  are  described  separately,  in  sections  2.3  through  2.7,  with  particular 
attention  given  to  a  description  of  the  data  structures  created. 

2.3  Data  Input  and  Verification 

Figure  1  shows  a  sample  NRLA  input  data  file.  The  data  values  and  relationships 
shown  are  used  in  subsequent  figures  to  illustrate  the  data  structures  created  by  the 
program. 

Data  input  and  verification  is  accomplished  by  the  statements  from  the  beginning  of 
the  program  through  statement  number  595. 

The  first  three  executable  statements  set  certain  parameters  for  two  random  access 
data  files,  15  and  16,  and  obtain  the  current  date,  in  the  form  VYMMDD.  Modifications 
may  be  necessary  to  conform  to  the  host  computer's  requirements.  These  are  followed  by 
initialization  statements.  Then,  the  input  from  file  code  5  is  read  into  the  program. 
First,  the  output  options  and  output  units  card  is  read.  Next,  the  wholesale  change  and 
exclusion  factors  are  read. 

Next,  the  first  input  data  record  (stored  on  file  code  10),  Weapon  System  Program 
Factors,  is  read.  The  system  name  and  run-identification  data  from  it  are  used  to  write 
output  report  headers.  Validity  checks  are  done  for  the  overseas  deployment  fraction  and 
for  sensitivity  analysis  parameters  with  error  messages  written  if  appropriate.  The 
remaining  weapon  system  factors  are  then  used  to  compute  the  monthly  and  life  cycle 
flying  hours. 
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MOD.THRT.EMT  47  020  10  1  12G  1000M  50  200  1 

132  1642  136  3485  0.33  0.15 

10420  10420  20.0  0.27  0.53  0.43  0.54  1.26  1.44  .369  .573  190. 


11001  MULTIMETER  90.  1.60  1  2.5  200  0 

12002  OSCILLOSCOPE  2375.  47.5  1  1.8  200  0 

12003  SIGNAL. GEN.  4750.  95.0  1  1.2  200  0 

12004  PULSE. GEN.  1350.  27.0  1  0.5  2 00  0 

12005  POWER. SUPPLY  600.  12.0  1  2.5  200  0 

12006  UNIV. BRIDGE  1375.  27.5  1  0.1  200  0 

15001  MULTIMETER.*  90.  1.80  1  2.5  200  0 

16002  OSCILLOSCOP*  2375.  47.5  1  1.6  200  0 

16003  SIGNAL. GEN. «  4750.  95.0  1  1.2  200  0 

16004  PULSE. GEN. .«  1350.  27.0  1  0.5  2C0  0 

16005  POWER. SUPP.*  600.  12.0  1  2.5  200  0 

16006  UNIV. BRIDGE*  1375.  27.5  1  0.1  200  0 
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1.0  1.0  1.5  1.5  .; 

33  .1  2  5000 
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4 1LRU09 

4.33 

2 

02651.  .10  6  2 

.53  .53  .06 

200. 

2  0 

.53 
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1 
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99 
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52  SRU56  1001200220032004200550616002600360046005 


FIGURE  1.  SAMPLE  DATA  FILE 


Maintenance  system  factors  are  then  read.  The  annual  turnover  rates  are  used  to 
calculate  life  cycle  turnover  factors  for  maintenance  personnel  training. 

Data  values  for  the  Supply  System  Factors  are  then  read  from  the  third  input  record. 

Values  from  the  above  data  records  are  printed  for  user  verification.  This  is 
followed  by  computations  using  the  supply  system  factors  and  the  printing  of  header 
information  for  support  equipment  data. 

Support  equipment  input  data  is  processed  starting  at  statement  number  200  and 
continuing  up  to  statement  300.  The  variable  NUMSER  serves  as  a  counter  for  the  number 
of  SE  resources  input  and  as  a  subscript  for  the  SE  data  arrays.  If  the  number  of  SE  data 
cards  exceeds  the  allocated  array  size  (specified  by  the  value  for  MAXSE)  the  excess 
cards  are  read,  printed  with  an  error  message,  and  ignored.  When  array  sizes  will  not  be 
exceeded,  the  data  is  read  into  arrays  of  the  common  area  SEIN  and  validation  tests  are 
performed  for  the  first  two  input  characters.  The  arrays  SRCE,  DEST,  CAP,  and  FLOW 
serve  as  temporary  storage  areas  for  the  digits  of  the  SE  code  numbers.  Each  valid  input 
record  is  printed  to  allow  verification  by  the  user.  The  SE  input  values  plus  certain 
computed  values  and  pointers  are  stored  in  arrays  as  shown  in  Figure  2.  A  "row"  of  data 
will  later  be  referred  to  as  an  SE  data  record  and  will  exist  for  each  depot  and  base  SE. 
The  functions  of  the  computed  values  and  pointers  will  be  explained  later. 

The  processing  of  LRU  input  data  is  performed  from  statement  300  to  statement 
350.  The  variable  NLRU  is  used  as  a  counter  for  the  number  of  LRUs  identified  in  the 
input  file  and  as  a  subscript  for  LRU  data  arrays.  Overflow  of  LRU  arrays  is  prevented  by 
comparing  NLRU  to  the  control  value  MAXLRU.  The  input  value  NSE,  number  of  SE 
resources  required  for  LRU  repair,  is  subtracted  from  zero  and  the  result  saved  in  the 
array  NSERL.  This  negative  value  is  replaced  by  a  positive  value  when  the  LRU  to  SE 
relationships  are  determined.  LRU  input  data  arrays  and  associated  pointer  arrays  are 
shown  in  Figure  3.  (NOTE:  Entries  are  shown  for  TFAILP,  FRSTFM,  and  LASTFM  even 
though  they  are  not  established  until  the  LRU  failure  mode  data  has  been  read.) 

Input  data  cards  for  LRU  failure  mode  data  are  processed  from  statement  400  up  to 
statement  450.  The  variable  LFMS  is  the  counter  for  the  number  of  failure  mode  data 
cards  read  and  as  a  subscript  for  the  LRU  failure  mode  data  arrays.  Array  overflow  is 
prevented  by  comparing  LFMS  to  the  control  value  MAXFM.  As  each  card  is  processed 
the  corresponding  LRU  data  record  is  located  and  the  pointers  FRSTFM  and  LASTFM 
updated.  The  input  value  NSE  (number  of  SE  required)  is  subtracted  from  zero  and  saved 
in  the  array  NSERFM.  Validity  tests  are  done  for  the  failure  percentage  input  value  and 
also  for  the  values  which  serve  to  preclude  specific  repair  level  options  (LFMOD,  LFMOS, 
and  LFMOB).  If  the  input  field  for  an  SRU  identifier  is  not  blank  the  count  of  SRU  data 
cards  is  incremented.  This  value,  SFMS,  is  then  used  as  a  subscript  to  save  the  SRU 
identifier,  the  SRU  name,  and  a  pointer  to  the  LRU  failure  mode  record.  In  addition,  the 
value  SFMS  is  saved  in  the  array  SRUPTR  as  a  pointer  to  the  SRU  data  record.  LRU 
failure  mode  arrays  are  shown  in  Figure  4. 

SRU  input  data  cards  are  read  at  statement  500  and  processed  prior  to  statement 
550.  Because  there  are  no  restrictions  on  the  sequence  of  SRU  cards  in  the  input  file,  the 
SRU  data  values  cannot  be  read  directly  into  the  arrays  for  SRU  data  records.  The  values 
are  read  into  temporary  locations  and  then  moved  to  the  proper  SRU  record  based  on 
matching  the  SRU  identifier  field.  For  each  SRU  the  input  values  which  preclude  specific 
repair  level  options  (SOD,  SOS,  and  SOB)  are  validated  and  checked  for  consistency  with 
options  specified  for  the  associated  LRU  failure  mode.  Figure  5  shows  the  arrays  used  for 
SRU  data  records. 
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FIGURE  2.  SUPPORT  EQUIPMENT  DATA  STRUCTURE 


2.15  Subroutine  RESET 


RESET  is  called  by  MAIN,  MTBFSA,  and  UCLSA.  Its  purpose  is  to  exploit  the  known 
structure  of  the  RLA  network  so  that  the  computer  processor  time  required  to  solve  the 
network  can  be  reduced.  This  is  accomplished  by  examining  certain  source  node  to  sink 
node  paths  and  incrementing  the  allocated  flow  along  the  paths.  This  is  done  either  for  all 
LRUs  and  SRUs  or  for  a  specific  LRU  and  its  associated  SRUs. 

The  choice  between  all  LRUS  and  a  specific  LRU  is  controlled  by  the  argument 
LPTR.  If  LPTR  has  the  value  zero  it  means  that  a  feasible  total  flow  must  be  assured  (by 
setting  the  flow  in  every  arc  to  zero)  prior  to  incrementing  the  flow  for  every  LRU  failure 
mode  and  every  SRU.  A  nonzero  value  means  that  a  previously  determined  max-flow 
solution  has  been  made  non-optimal  by  increasing  some  arc  capacity  values  associated 
with  an  LRU.  This  occurs  during  the  sensitivity  analysis  process  in  MTBFSA  and  UCLSA. 
In  this  case  RESET  will  oniy  examine  the  arcs  associated  with  the  LRU  being  considered 
for  sensitivity  analysis. 

For  each  LRU  and  SRU  considered  the  subroutine  utilizes  the  path  from  source  node 
to  depot  node  to  base  node  to  sink  node  (e.g.,  1  to  4  to  6  to  10  in  Figure  X).  Direct 
pointers  to  the  arcs  are  found  in  LDARC,  LSARC,  and  LBARC  for  each  LRU  failure  mode 
and  in  SDARC,  SSARC,  and  SBARC  for  each  SRU.  For  each  arc  in  each  path  the 
difference  between  its  capacity  and  flow  values  is  computed.  The  minimum  of  these  3 
values  is  added  to  the  flow  for  each  of  the  3  arcs.  The  minimum  value  is  used  because  it 
is  the  maximum  amount  by  which  the  path  flow  can  be  increased  and  still  have  the  flow  in 
each  arc  less  than  or  equal  to  its  capacity. 

2.16  Subroutine  MAXFLO 


This  routine  is  called  from  MAIN,  MTBFSA,  and  UCLSA.  Its  purpose  is  to  determine 
the  minimum  cut  for  the  network  because  the  minimum  cost  set  of  repair  level  decisions 
is  obtained  directly  from  this  cut.  The  solution  technique  used  is  a  direct  application  of 
the  two  stage  labelling  procedure  described  on  pages  17-22  of  Flows  in  Networks  by  L.R. 
Ford,  3r.  and  D.R.  Fulkerson,  Princeton  University  Press,  1962. 

The  object  of  the  first  stage  is  to  find  a  path  from  tire  source  to  the  sink  node  along 
which  the  network  flow  can  be  increased.  The  second  stage  follows  this  path  from  the 
sink  back  to  the  source  node  modifying  the  allocated  flow  in  each  arc  of  the  augmenting 
path.  This  two  stage  process  is  repeated  until  no  flow  augmenting  path  from  source  to 
sink  can  be  found.  When  this  occurs  the  minimum  cut  for  the  network  has  been 
determined. 

Prior  to  initiating  the  labelling  algorithm  the  loops  DO  3005  and  DO  3010  are 
executed.  The  first  one  is  executed  for  each  LRU  failure  mode  and  the  second  one  for 
each  SRU.  In  the  first,  the  entries  in  LFMOD,  LFMOS,  and  LFMOB  are  examined:  a 
nonzero  entry  indicates  a  user  specification  to  exclude  the  depot,  scrap,  and  base  options, 
respectively.  The  repair  level  decisions  are  precluded  by  setting  the  appropriate  arc 
capacitv  to  a  very  large  number.  The  SRU  loop  operates  similarly  using  the  arravs  SOD, 
SOS,  and  SOB  as  the  source  for  the  user's  SRU  .specifications. 

The  first  stage  is  then  initiated  bv  labelling  the  source  node,  setting  its  STATE  to  2 
(labelled  and  unscanned),  and  setting  the  STATE  for  every  other  node  to  1  (unlabelled).  At 
statement  3030  a  loop  is  executed  to  find  a  labelled  and  unscanned  node. 


Arcs  to  node  6  are  located  by  using  the  5th  and  6th  entries  of  BACKSP.  The  5th 
entry  is  related  to  the  last  triple  with  DEST  equal  to  5.  Similarly,  the  6th  entry  is  related 
to  the  last  triple  with  DEST  equal  to  6.  Therefore,  the  appropriate  pointers  for  node  6  are 
BACKSP  (5)  +1  through  BACKSP  (6).  In  this  case,  8  and  9.  These  pointers  are  not 
subscripts  for  triples  —  they  are  pointers  to  entries  in  BKPTR.  The  values  in  BKPTR  are 
subscripts  for  the  triples.  The  8th  and  9th  entries  in  BKPTR  are  8  and  13  indicating  that 
the  8th  and  13th  triples  have  6  as  the  DEST. 

The  last  logical  section  of  code  in  SETNET  is  the  DO  2400  loop.  Here  the  SRCE  and 
DEST  entries  for  each  arc  are  examined  to  determine  the  function  of  the  arc.  If  an  arc  is 
used  for  LRU  costs  a  pointer  to  it  is  saved  in  LDARC,  LSARC,  or  LBARC  for  LRU  depot 
arc,  LRU  so  ap  arc,  and  LRU  base  arc,  respectively.  Similarly,  pointers  are  saved  in 
SDARC,  SSARC,  SBARC,  SBDARC,  and  SBSARC  for  appropriate  SRU  arcs,  and  saved  in 
SEARCP  for  SE  costs. 

2.14  Subroutine  SORT 


SORT  is  called  from  subroutine  SETNET.  As  its  name  implies,  its  function  is  to  sort 
values  supplied  by  SETNET.  Specifications  to  SORT  are  contained  in  its  arguments  list. 
The  first  three  arguments  to  the  routine  (Ml,  M2,  M3)  are  the  arrays  to  be  sorted,  the 
fourth  is  an  array  for  sequence  pointers  (LINK),  the  fifth  specifies  the  number  of  values  in 
the  arrays  to  be  sorted,  the  sixth  specifies  the  dimensioned  size  of  the  arrays  to  be  sorted, 
and  the  last  argument  is  a  0-1  indicate  directing  SORT  to  only  sequence  the  links  or  to 
also  resequence  the  three  arrays  to  be  sorted.  SORT  is  not  a  general  purpose  sorting 
routine.  It  only  sorts  into  ascending  order  and  sequences  based  only  on  the  contents  of  the 
first  argument  array.  Processing  is  essentially  a  two  stage  procedure. 

The  first  stage  begins  by  assigning  the  integers  1,  2,  ...,  N  into  array  LINK.  These 
integers  are  used  as  pointers  to  values  in  the  at  ray  Ml.  The  loop  DO  30  then  rearranges 
the  LINK  values  so  that  they  correspond  to  a  sorted  order  for  the  values  in  Ml.  The  first 
pass  through  the  DO  30  loop  results  in  moving  the  pointer  to  the  largest  value  in  Ml  to  the 
end  of  the  LINK  list.  The  second  pass  gets  the  pointer  to  the  second  largest  Ml  value  tc 
the  second  last  entry  of  LINK  list.  Each  pass  gets  at  least  one  LINK  pointer  to  its  proper 
ordering  position. 

To  clarify  these  operations,  suppose  that  Ml  had  the  3  values  30,  20,  and  10.  LINK 
would  first  be  initialized  to  1,2,  3.  In  the  DO  30  loop  the  LINK  values  1  and  2  would  be 
used  as  subscripts  to  compare  the  values  30  and  20.  Since  30  and  20  are  not  in  ascending 
order  the  LINK  values  1  and  2  are  reversed  to  give  the  order  2,  1,3.  Next,  the  pointers  1 
and  3  are  used  to  compare  the  values  30  and  10;  since  they  are  out  of  order  the  LINK 
values  are  reversed  to  give  the  sequence  2,  3,  1.  This  puts  1,  the  pointer  to  the  largest  Ml 
value,  last  in  the  list.  The  next  pass  through  the  DO  30  loop  would  produce  the  LINK 
sequence  3,  2,  I.  These  values  mean  that  the  smallest  Ml  value  is  third,  the  next  smallest 
is  second,  and  the  largest  value  is  first. 

Depending  on  the  value  of  the  0-1  argument  the  subroutine  will  either  RETURN  or 
complete  the  second  stage  of  processing.  The  second  stage  is  the  DO  50  loop  in  which  the 
LINK  entries  plus  the  Ml,  M2,  and  M3  entries  are  rearranged.  In  the  loop  if  a  LINK  value 
indicates  that  the  Ml,  M2,  and  M3  values  are  out  of  sequence  they  are  moved  to  the  array 
TEMP.  Then,  the  Ml,  M2,  and  M3  slots  just  vacated  are  filled  with  the  proper  values  by 
using  the  LINK  pointer;  those  vacated  slots  are  then  filled  with  their  proper  values;  and  so 
on  until  the  values  in  TEMP  can  be  moved  to  their  proper  slots.  This  continues  until  all 
LINKS  and  associated  Ml,  M2,  and  M3  values  are  properly  sequenced. 
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The  DO  2120  loop  assigns  attributes  for  the  two  types  of  arcs  originating  at  a  base 
LRU  node.  One  type  goes  to  the  corresponding  SRU  node  and  has  a  CAP  value  from 
BRLSS;  the  other  goes  to  the  sink  node  with  a  CAP  value  from  BASELC.  The  loop  is  very 

similar  to  the  DO  2080  loop. 

Each  base  SRU  node  will  ,e  the  source  for  two  arcs,  one  arc  to  the  appropriate  LRU 
failure  mode  node  and  one  to  the  sink  node.  These  arcs  are  created  in  the  DO  21  30  loop. 

The  last  set  of  arcs  assigned  are  related  to  the  base  SE  resources.  The  arrays 
SEXREF  and  NXTITM  are  used  to  assign  arcs  from  LRU  and  SRU  base  nodes  to  the  base 
SE  nodes.  This  is  analagous  to  the  processing  for  depot  SE  in  the  DO  2060  loop.  A  second 
type  of  arc  is  created  from  each  SE  node  to  the  sink  node  and  assigned  a  CAP  value  from 
SECOST. 

Figure  8  shows  a  sample  network  composed  of  arcs  for  one  LRU  failure  mode,  one 
SRU,  two  SE  resources  at  depot,  and  two  SE  resources  at  base.  Node  numbers  appear  as 
they  would  be  assigned  in  the  program.  With  each  arc  is  the  array  name  from  which  the 
associated  logistics  cost  is  obtained  and  a  lower  case  letter  to  represent  the  cost.  The 
figure  also  shows  the  entries  that  would  be  made  in  arrays  SRCE,  DEST,  and  CAP  for  this 
sample  network.  The  entries  are  in  the  order  produced  by  the  logic  of  subroutine  SETNET. 

To  find  the  optimal  solution  for  the  network  it  is  necessary  to  examine  the  CAP  and 
FLOW  values  for  each  arc  going  out  of  a  node  and  also  those  coming  into  the  node.  As 
shown  in  Figure  8  the  attributes  for  arcs  going  from  base  LRU  and  SRU  nodes  (nodes  6  and 
7)  will  not  all  be  consecutive.  Consequently,  the  attribute  triples  are  sorted  into 
ascending  order  by  SRCE  as  shown  in  Figure  9. a.  This  order  is  beneficial  because  all  arcs 
going  out  of  node  i  can  be  examined  by  finding  the  first  occurrence  of  i  in  SRCE  and 
continuing  until  the  value  in  SRCE  changes.  The  benefit  can  be  increased  by  saving  a 
pointer  to  the  first  occurrence  of  each  node  rather  than  having  to  search  for  it.  This  is 
done  in  the  DO  2190  loop  with  the  pointers  saved  in  FWDSP  as  shown  in  Figure  9.b.  The 
loop  DO  2195  is  included  to  prevent  errors  which  would  arise  if  a  node  was  not  the  source 
for  any  arc  --  specifically,  a  depot  SE  not  referenced  by  any  LRU  or  oRU. 

Because  the  solution  algorithm  needs  to  know  which  arcs  go  into  each  node,  as  well 
as  those  that  go  out,  it  would  be  beneficial  to  have  the  SRCE-DEST-CAP  triples  sorted  by 
DEST.  Unfortunately,  the  triples  cannot  be  sorted  by  SRCE  and  also  bv  DEST.  However, 
a  solution  to  this  problem  is  obtained  by  including  another  array.  A  CALL  is  made  to 
subroutine  SORT  with  array  parameters  DEST  and  BKPTR.  SORT  will  put  the  integers  1 
through  NARCS  into  BKPTR  and  then  sort  the  integers,  based  on  the  contents  of  DEST,  so 
that  they  can  be  used  as  pointers  to  DEST  values.  The  loop  DO  2200  uses  the  entries  in 
BKPTR  to  build  additional  pointers  in  BACKSP.  The  results  of  these  operations  are  shown 
in  Figure  9.c.  The  loop  DO  2222  is  included  to  preclude  problems  which  would  arise  if  a 
node  was  not  the  destination  for  any  arc  —  a  base  SE  not  referenced  bv  anv  LRU  or  SRU. 

To  clarify  the  utilization  of  FWDSP,  BKPTR,  and  BACKSP  consider  node  6  of  Figure 
8.  It  is  the  source  for  3  arcs  and  the  destination  for  2  arcs.  The  6th  entry  of  FWDSP  is  10 
indicating  that  the  triples  for  arcs  from  node  6  start  with  the  !9th  triple.  Based  on  the 
7th  entry  of  FWDSP,  arcs  from  node  7,  it  is  easv  to  determine  that  the  appropriate  triples 
for  node  6  are  referenced  by  subscriots  10  through  12  (i.e..  13  minus  !).  Similar  logic 
holds  for  every  other  node;  the  appropriate  subscripts  for  node  i  are  FWDSP  (i)  through 
FWDSP  (i  +1)  -1. 
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2.13  Subroutine  SETNET 


SETNET  is  called  by  main  after  all  costs  and  dependency  relationships  are  known. 
The  function  of  SETNET  is  to  use  this  information  to  construct  a  matrix  representation 
for  the  RLA  network,  determine  and  save  pointers  for  use  by  the  solution  algorithm,  and 
save  pointers  for  use  by  the  sensitivity  analysis  subroutines. 

The  matrix  representation  for  the  network  is  contained  in  arrays  which  specify  the 
attributes  for  each  network  arc.  These  attributes  are  the  source  node  for  the  arc,  in  array 
SRCE;  the  destination  node  for  the  arc,  in  DEST;  the  maximum  flow  (logistics  cost) 
associated  with  an  arc,  in  CAP;  and  the  arc  flow  as  later  determined  by  the  solution 
algorithm,  in  FLOW.  The  entries  in  the  arrays  are  determined  by  using  a  predefined 
spatial  structure  for  the  nodes. 

The  fixed  structure  permits  the  determination  of  node  numbers  for  key  network 
nodes.  This  is  done  as  the  first  step  in  the  subroutine  so  that  the  values  can  be  used  for 
assigning  SRCE  and  DEST  node  numbers.  Nodes  are  assigned  ordinal  numbers,  by  node 
category,  using  the  sequence:  source  node,  depot  SE  nodes,  depot  LRU  failure  mode 
nodes,  depot  SRU  nodes,  base  LRU  failure  mode  nodes,  base  SRU  nodes,  base  SE  nodes, 
and  sink  node.  The  last  depot  SE  (LDSE)  node  number  will  be  1  plus  the  number  of  depot 
SE  (NDSE)  resources.  The  last  depot  LRU  (LDLRU)  node  number  will  be  LDSE  plus  the 
number  of  LRU  failure  modes  (LFMS).  Similar  logic  is  used  to  calculate  node  numbers  for 
the  last  node  in  each  of  the  node  categories. 

Assignment  of  arc  attributes  for  depot  SE  arcs  occurs  in  the  loop  DO  2010.  Within 
this  loop,  and  successive  assignment  loops,  the  variable  NARCS  is  incremented  as  a 
counter  for  the  number  of  network  arcs  and  as  a  subscript  for  the  arrays  SRCE,  DEST,  and 
CAP.  For  each  depot  SE  the  value  1  is  saved  in  SRCE,  the  SE  node  number  is  saved  in 
DEST,  and  the  life  cycle  SE  cost  is  saved  in  CAP. 

The  next  two  loops,  DO  2020  and  DO  2030,  assign  the  arc  attributes  for  LRU  failure 
mode  and  SRU  repair  costs  at  depot.  These  loops  are  essentially  identical  to  the  previous 
one. 


Arcs  from  each  depot  SE  node  to  the  appropriate  LRU  and  SRU  nodes  have  their 
attributes  assigned  in  the  loop  DO  2060.  The  SE  to  item  arcs  are  generated  stepping 
through  the  linked  list  of  SE  to  item  relationships  saved  in  the  SEXREF  and  NXTITM 
arrays.  Positive  values  in  SEXREF  are  pointers  to  LRU  failure  mode  records.  When  the 
values  are  added  to  LDSE  the  result  is  the  node  number  for  the  failure  mode  and  is  used 
fc :  the  arc's  DEST  entry.  Negative  values  in  SEXREF  are  pointers  for  SRU  records.  When 
these  negatives  are  subtracted  from  the  number  of  LRU  failure  modes  (LFMS)  the  result 
can  be  added  to  LDSE  to  obtain  the  proper  SRU  node  number  to  be  saved  in  DEST. 

The  two  types  of  arcs  emanating  from  the  depot  LRU  nodes  have  their  attributes 
assigned  in  the  loop  DO  2080.  For  each  failure  mode  with  an  associated  SRU  an  arc  is 
created  from  the  LRU  node  to  the  SRU  node  and  having  a  value  from  BRLDS  assigned  as 
its  capacity.  Then,  arc  attributes  are  saved  to  represent  the  arc  from  the  LRU  depot  node 
to  the  LRU  base  node.  This  arc  is  assigned  the  LRU  scrap  option  cost,  from  SCRPLC,  as 
its  CAP. 

SRU  scrap  option  costs  are  saved  in  CAP  for  the  arc  assignments  made  in  the  DO 
2090  loop.  These  arcs  have  an  SRU  depot  node  as  the  source  and  an  SRU  base  node  as  the 
destination. 
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2.11  Subroutine  SRUCMP 


This  subroutine  is  very  similar  to  FMCMP.  It  is  called  by  MAIN,  MTBFSA,  and 
UCLSA  to  compute  SRU  related  life  cycle  costs.  The  arguments  LPTR,  FMPTR,  and 
SPTR  serve  as  indices  for  locating  the  appropriate  LRU,  failure  mode,  and  SRU  data 
records. 

Life  cycle  repair  costs  are  computed  as  described  in  the  NRLA  User's  Guide  and 
saved  in  the  SRU  related  arrays  DEPOSC,  SCRPSC,  BASESC,  BRLSS,  and  BRLDS.  The 
last  two  correspond  to  the  DEC2  and  DEC1  costs  described  in  the  user's  guide.  Monthly 
maintenance  man-hours  required  for  SRU  repair  are  computed  and  saved  in  SSEUHD  and 
SSEUHB. 

In  relation  to  the  computed  SRU  costs  it  is  important  to  note  the  SRU  scrap  option 
costs  are  treated  differently  than  the  corresponding  LRU  failure  mode  costs.  The  LRU 
failure  mode  scrap  costs  are  summed  and  assigned  to  a  single  arc  in  the  network.  The 
SRU  scrap  cost  components  are  assigned  to  two  different  arcs  so  that  each  of  the  six  joint 
LRU-SRU  decisions  will  reflect  the  proper  total  cost.  Specifically,  the  cost  for  packing 
and  shipping  SRUs  plus  the  cost  of  base  level  inventory  is  assigned  to  be  counted  for  a 
BASE-SCRAP  decision  combination  but  not  counted  for  the  DEPOT-SCRAP  and  SCRAP- 
SCRAP  joint  decisions.  Further,  to  achieve  the  proper  total  for  the  SCRAP-SCRAP 
decision,  the  cost  of  SRU  failures  is  subtracted  from  the  corresponding  LRU  failure  mode 
scrap  cost. 

2.12  Subroutine  SECMP 


SECMP  is  called  by  MAIN  and  by  MTBFSA.  It  determines  the  quantity  of  each  SE 
resource  potentially  required  at  depot  and  base  level  plus  the  life  cycle  cost  for  the 
resources.  When  called  by  MAIN  the  routine  prints  a  table  of  SE  requirement  quantities, 
monthly  utilization  hours,  and  life  cycle  costs.  The  argument  1ND  is  set  at  zero  by 
MTBFSA  to  suppress  this  printing. 

At  the  beginning  of  the  routine  are  write  statements  for  output  report  identification 
and  column  headings.  This  is  followed  by  a  DO  loop  through  statement  900.  Instructions 
within  the  loop  are  executed  for  each  SE  resource. 

The  purpose  of  the  code  from  statement  806  to  statement  815  is  to  determine,  for 
an  SE,  the  expected  monthly  utilization  from  all  LRUs  and  SRUs.  The  appropriate  items 
are  found  by  using  an  5EPF  entry  as  a  starting  location  pointer  and  stepping  through  the 
linked  list  of  entries  in  SEXREF  and  NXTITM.  Each  entry  of  SEX  REF  is  a  pointer  to  an 
item  record  with  positive  values  used  for  LR' 1  pointers  and  negative  values  used  as  SRU 
pointers.  The  first  digit  of  each  SECODE  indicates  whether  the  resource  is  for  depot 
(digits  I  to  4)  or  base  (digits  5  to  8)  use  an  therefore,  whether  the  depot  or  the  base  SE 
use  hours  are  totaled.  The  total  utilization  hours  are  then  used  to  determine  the  SE 
quantity  requirement. 

This  requirement  is  used  to  compute  life  cycle  SE  costs  as  described  in  the  NRLA 
User's  Guide.  If  SEC  P  was  called  from  MAIN  the  computed  hours,  utilization  rate,  and 
costs  are  printed.  If  the  call  was  from  MTBFSA  the  new  cost  is  assigned  as  the  capacity 
value  of  the  proper  network  arc. 
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from  the  previous  decision  to  depot,  scrap,  and  base,  respectively.  Of  the  10  values, 
processing  proceeds  for  those  associated  with  decision  change  points.  Actions  include 
placing  a  "*"  in  array  LINE  corresponding  to  each  negative  value,  changing  negative  values 
to  positive,  replacing  each  4  value  with  the  value  preceeding  it,  and  using  the  values  as 
subscripts  to  place  the  values  "DEPOT",  "SCRAP",  and  "BASE"  into  the  array  LOCAT. 
The  failure  mode  identifier  is  then  written  with  the  values  in  arrays  LINE  and  LOCAT.  If 
an  SRU  is  associated  with  the  failure  mode  the  integer  decision  values  for  it  are  read  from 
file  17  into  array  SADECS,  processed  as  above  to  fill  LINE  and  LOCAT,  and  an  output  line 
written  to  reflect  its  decision  changes. 

After  all  failure  modes  have  been  processed,  two  data  records  are  read  from  file  17. 
The  values  are  printed  to  specify  the  total  number  of  LRU/SRU  and  SE  decision  changes 
per  decision  change  point. 

At  statement  4190  the  next  record  from  file  17  is  read  into  NDEC  and  DECVLO.  A 
value  for  NDEC  which  is  greater  than  zero  indicates  a  continuation  of  decision  change 
point  information  and  causes  a  transfer  back  to  statement  4040.  If  NDEC  is  not  positive 
it  will  be  -1  indicating  the  start  of  data  for  the  next  LRU.  In  this  case  the  first  3  values 
of  DECVLO  are  used  for  UCLSL,  UCLSH,  and  UCLIN,  respectively. 

Statements  from  4200  to  4300  process  the  SRU  cost  sensitivity  results  written  to 
file  18  by  subroutine  UCLSA.  Statements  from  4300  to  4400  process  the  LRU  MTBF 
sensitivity  results  written  to  file  19  by  subroutine  MTBFSA.  These  two  sections  contain 
logic  and  statements  which  are  essentially  identical  to  that  just  described  for  LRU  cost 
sensitivity  results. 

2.8  Block  Data  Subroutine 


This  subroutine  contains  data  statements  to  initialize  values  in  the  arrays  CHARS 
and  LOCAT. 

2.9  Subroutine  LRUCMP 


LRUCMP  is  called  by  MAIN,  MTBFSA,  and  UCLSA.  Its  function  is  to  compute 
inventory  stock  levels  and  life  cycle  SCRAP  option  costs  for  an  LRU.  The  argument 
LPTR  is  a  pointer  to  an  LRU  data  record. 

The  routine  computes  monthly  and  life  cycle  repair  demand  rates  for  Ihe  LRU.  The 
monthly  rate  is  used  in  equations  which  determine  pipeline  spares  quantities  and 
associated  LRU  inventory  stock  levels.  The  equations  for  these  quantities  and  the  life 
cycle  SCRAP  option  costs  are  presented  and  described  in  Chapter  3  of  the  NRLA  User's 
Guide. 

2.10  Subroutine  FMCMP 


FMCMP  is  called  by  MAIN,  MTBFSA,  and  UCLSA  to  compute  repair  level  option 
costs  for  an  LRU  failure  mode.  The  arguments  LPTR  and  FMPTR  are  used  as  pointers  to 
an  LRU  record  and  failure  mode  record,  respectively. 

The  routine  computes  the  life  cycle  logistics  costs  as  described  in  the  NRLA  User's 
Guide  and  saves  them  in  the  arrays  DEPOLC,  SCRPLC,  and  BASELC.  The  expected 
number  of  maintenance  man-hours  required  monthly  for  the  failure  mode  is  computed  and 
saved  in  FSEUHD  and  FSEUHB  for  depot  and  base  level  repair,  respectively. 
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The  first  action  is  a  cail  to  subroutine  SETNET  which  constructs  the  network 
relationships.  Subroutine  RESET  is  then  called  to  initialize  the  network  flow.  The 
minimum  cost  (maximum  flow)  solution  for  the  network  is  determined  by  subroutine 
MAXFLO.  Finally,  subroutine  OUTPUT  is  called  to  display  the  optimal  SE  and  item 
decisions. 

Prior  to  performing  the  sensitivity  analysis  computations,  the  program  saves  the 
contents  of  certain  arrays  which  define  the  optimal  solution.  Specifically,  STATE  for 
node  status  plus  CAP  and  FLOW  for  arc  status.  In  addition,  two  random  access  files  are 
established  for  temporary  storage  of  data  by  the  sensitivity  analysis  subroutines.  A 
computed  GO  TO  is  then  executed  to  transfer  to  statement  2025,  2035,  or  2055  for  LRU 
cost,  SRU  cost,  or  LRU  MTBF  sensitivity,  respectively. 

LRU  cost  sensitivity  is  done  for  each  LRU  with  a  call  to  subroutine  UCLSA.  In 
UCLSA  the  sensitivity  results  are  written  to  a  sequential  binary  data  file,  file  code  17.  In 
MAIN  a  REWIND  is  executed  for  the  file  and  the  first  record  read  into  memory. 

The  nested  loops  DO  2050,  for  each  LRU,  and  DO  2040,  for  each  failure  mode, 
control  SRU  cost  sensitivity.  The  analysis  is  done  by  UCLSA  which  writes  the  results  to 
file  18.  After  statement  2050  the  first  record  from  file  18  is  read. 

For  LRU  MTBF  sensitivity  the  loop  DO  2060  is  executed  for  each  LRU.  Subroutine 
MTBFSA  is  called  to  do  the  computations  and  write  the  results  to  file  19.  After  the  loop, 
the  first  record  of  sensitivity  results  is  read  back  into  memory  for  subsequent  display. 

2.7  Output  of  Results 

The  display  of  repair  level  decisions  details  is  done  in  the  DO  loop  from  statement 
3000  through  5000.  At  the  beginning  of  the  loop  are  write  statements  which  print  the 
LRU  input  values  and  some  computed  failure  rate  values.  Then,  for  each  failure  mode  of 
the  LRU,  the  loop  DO  4000  is  executed  to  print  failure  mode  and  SRU  data.  The  program 
prints  the  input  data  factors,  from  failure  mode  and  SRU  data  records,  plus  the  computed 
logistics  costs  and  the  optimal  repair  level  decision  for  the  failure  mode  or  SRU. 

Statements  between  4000  and  5000  control  the  writing  of  information  resulting  from 
the  three  types  of  sensitivity  analysis.  The  statements  prior  to  4200  process  the 
information  on  file  17,  LRU  unit  cost  sensitivity  results. 

In  this  section,  the  first  action  is  to  read  a  record  from  file  17  which  indicates  the 
number  of  decision  change  points,  NDEC,  and  the  low  side  LRU  cost,  DECVLO.  If  the 
number  of  decision  change  points  is  less  than  two  a  message  is  written  indicating  no 
decision  changes.  Otherwise,  processing  proceeds  by  writing  a  header  line  describing  the 
input  cost  and  sensitivity  range  plus  two  lines  showing  the  cost  values  associated  with  the 
decision  change  points.  The  loop  DO  4081  is  executed  to  examine  the  cost  values 
associated  with  each  change  point  and  from  them  determine  where  the  set  of  optimal 
baseline  decisions  will  print.  A  line  is  then  printed  which  has  "*****•"  positioned  to  be 
above  the  optimal  baseline  decisions. 

The  loop  through  statement  4160  is  then  executed  for  each  failure  mode  of  the  LRU. 
A  record  is  read  from  file  17  which  contains  10  integer  values  each  of  which  is  -3,  -2,  -l, 
1,  2,  3,  or  4.  The  values  provide  coded  information  on  decision  changes.  The  values  l,  2, 
and  3  indicate  the  decisions  depot,  scrap,  and  base,  respectively.  The  4  indicates  no 
change  from  the  previous  decision  and  the  negative  values  -1,  -2,  and  -3  indicate  a  change 
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The  second  section,  from  statement  620  through  630,  is  essentially  identical  to  the 
first.  The  only  difference  is  that  it  processes  the  SE  requirements  which  are  specified  by 
failure  mode. 

At  statement  635  the  subroutine  FMCMP  is  called  to  compute  the  life  cycle  logistic 
costs  associated  with  each  LRU  failure  mode.  The  total  cost  computed  for  each  repair 
level  option  (base,  depot,  and  scrap)  is  saved  in  an  array.  The  individual  cost  equation 
values  and  the  option  totals  are  written  to  a  temporary  random  file. 

Finally,  each  failure  mode  is  checked  for  an  associated  SRU.  The  processing  for 
each  SRU  includes  updating  SEXREF  and  NXT1TM  to  include  the  SRU's  SE  requirements, 
calling  SRUCMP  for  cost  computations,  and  saving  the  cost  values  in  arrays  and  on  a 
temporary  random  file. 

Figure  7  shows  the  linkage  from  each  SE  through  SEXREF  and  NXTITM  to  each  item 
requiring  the  equipment.  For  SECODE  1001  the  SEPF  and  SEPL  entries  specify  that  the 
linked  list  of  items  requiring  the  SE  starts  with  the  first  SEXREF-NXTITM  pair  and  ends 
with  the  85th  pair.  The  entries  in  NXTITM  are  the  links  to  successive  pairs.  Thus,  the 
first  value  in  NXTITM,  3,  points  to  the  third  pair;  the  third  value,  11,  points  to  the 
eleventh  pair;  the  eleventh  value  points  to  the  thirteenth  pair;  the  13th  points  to  the  21st; 
the  21st  to  the  29th;  and  so  on.  The  list  terminates  at  pair  85  where  the  value  of  NXTITM 
is  zero.  The  SEXREF  values  for  this  linked  list  are  1,  -1,  2,  3,  -2,  4,  .  .  .  The  positive 
values  are  pointers  to  LRU  failure  modes  which  require  SE  resource  1001  for  their  repair. 
Similarly,  the  absolute  value  of  each  negative  number  is  a  pointer  to  an  SRU  requiring 
resource  1001. 

2.5  Display  of  Item  to  SE  Relationships 

The  printed  output  pages  displaying  the  item  to  SE  relationships  are  produced 
starting  at  statement  number  750.  Preliminary  actions  include  initializing  values  and 
writing  heading  information.  This  is  followed  by  a  loop  through  statement  784  which  is 
traversed  for  each  LRU. 

Within  this  loop  is  another,  through  statement  782,  which  is  executed  for  each 
failure  mode  of  each  LRU.  At  the  beginning  of  the  inner  loop  are  logical  IF  statements 
which  control  the  writing  of  page  headers  and  LRU  related  data.  Then,  by  using  the 
appropriate  entries  in  the  array  ITMSEN,  an  X  is  placed  in  array  LINE  for  each  SE 
required  for  LRU  repair.  When  the  X's  are  then  written  out  they  are  printed  in  a  column 
under  the  associated  SECODE  number.  The  X's  in  LINE  are  then  replaced  by  spaces  and 
processing  is  done  for  an  SRU. 

SRU  processing  is  similar  to  LRU  processing  in  that  a  line  of  Xs  is  constructed  and 
written  out  to  reflect  the  SE  requirements  specified  in  ITMSEN. 

After  the  item  to  SE  relationships  table  has  been  written,  the  arrays  SRCE,  DEST, 
CAP,  and  FLOW,  which  were  used  for  temporary  storage  of  SE  code  numbers,  are  cleared 
to  zero.  Then,  if  any  SE  resource  has  no  item  references  a  message  is  printed  to  alert  the 
user.  Finally,  subroutine  SECMP  is  called  to  compute  SE  quantity  requirements  and  life 
cycle  costs. 


2.6  Network  Solution  and  Sensitivity  Analysis 
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Next  the  data  cards  that  specify  the  SE  requirements  for  LRU  and  SRU  repairs.  The 
cards  are  read  at  statement  590  and  the  data  processed  by  the  statements  from  350  to 
400,  450  to  500,  or  550  to  590  for  LRU,  LRU  failure  mode,  and  SRU  requirements, 
respectively.  The  processing  in  each  of  the  three  sections  is  essentially  identical.  The 
put  card  is  matched  to  the  appropriate  LRU,  LRU  failure  mode,  or  SRU  data  record. 
Each  SE  identifier  on  the  card  is  matched  against  the  SECODE  entries  of  the  SE  data 
records.  For  each  match  a  pointer  to  the  SE  data  record  is  saved  in  the  next  available 
element  of  the  array  ITMSEN  and  the  appropriate  LRU,  LRUFM,  or  SRU  record  is  updated 
to  point  to  the  new  element  of  ITMSEN.  In  addition,  the  number  of  valid  SE  code  matches 
is  kept  by  the  variable  NSE  for  validation  against  the  corresponding  entry  in  NSERL, 
NSERFM,  or  NSERS. 

Beginning  at  statement  595  the  pareto  change  factors  are  read  from  file  5  and 
processed.  If  there  are  no  pareto  change  factors,  control  is  passed  to  statement  600. 

Figure  6  illustrates  the  structural  relationships  between  SE,  LRU,  LRUFM,  and  SRU 
data  records  developed  during  the  data  input  and  verification  section  of  the  program.  The 
FRSTFM  and  LASTFM  entries  for  LRU05  point  to  rows  1  and  2  of  LRU  failure  mode  data. 
Similarly,  the  failure  mode  records  for  LRU09  are  in  rows  3  through  6.  The  entries  in  the 
SRUPTR  column  contain  pointers  from  the  LRU  failure  mode  records  to  the  SRU  records. 
The  pointers  from  SRU  records  to  LRU  failure  mode  records  are  contained  in  the  column 
LRUPTR.  SE  utilization  input  data  is  contained  in  the  array  ITMSEN.  Each  entry  of 
ITMSEN  is  a  pointer  to  an  SE  data  record.  For  LRU05  the  entry  in  NSERL  indicates  two 
SE  references  and  the  2  in  SEPTL  indicates  that  the  last  of  these  SE  pointers  is  the  second 
entry  of  ITMSEN.  The  NSERL  and  SEPTL  entries  for  LRU09  specify  8  SE  pointers  with 
the  last  one  the  tenth  entry  in  ITMSEN,  entries  3  to  10.  The  zeros  in  the  NSERFM  column 
indicate  that  the  failure  mode  has  no  SE  requirements  other  than  those  specified  in  the 
LRU  record.  SRU  requirements  for  SE  are  specified  in  ITMSEN  and  referenced  by  NSERS 
and  SEPTS. 

2.4  LRU  and  SRU  Cost  Computations 


Cost  computations  and  some  related  processing  is  accomplished  by  a  DO  loop  from 
tatement  600  through  statement  690.  The  loop  is  executed  for  each  LRU  and  within  it  is 
a  loop  through  statement  680  which  is  executed  for  each  LRU  failure  mode. 

At  the  beginning  of  the  outer  loop  the  subroutine  LRUCMP  is  called  to  compute 
inventory  levels  and  life  cycle  costs  for  the  LRU.  The  inner  loop  is  then  executed  using 
the  LRU  related  values  in  FRSTFM  and  LASTFM  as  pointers  to  the  appropriate  sequence 
of  failure  mode  records. 

At  the  beginning  of  the  inner  loop  two  sections  of  code  are  executed  which 
accomplish  an  inversion  of  the  LRU  and  LRU  failure  mode  data  in  the  ITMSEN  array.  At 
the  beginning  of  the  first  section  an  arithmetic  IF  is  done  for  the  LRU's  value  in  array 
NSERL.  A  negative  value  produces  an  error  message  indicating  that  an  SE  reference  card 
was  not  supplied  for  the  LRU;  a  zero  value  indicates  no  SE  references  for  the  LRU;  and  a 
positive  value  indicates  the  number  of  LRU  SE  references  contained  in  ITMSEN. 

As  the  entries  in  ITMSEN  are  successively  processed  the  value  NXREF  is 
incremented  to  point  to  the  next  available  entry  of  SEXREF  (SE  cross  reference  array) 
and  NXTITM  (next  item  in  list).  When  the  first  item  reference  for  an  SE  is  encountered 
the  SE  arrays  SEPF  and  SEPL  will  both  be  set  to  the  value  NXREF.  As  additional  item 
references  are  processed,  the  value  in  SEPL  is  used  to  locate  the  L  AST  entry  in  the  linked 
list,  NXTITM  at  LAST  is  updated  to  point  to  the  next  reference  (NXREF),  and  an  item 
pointer  is  saved  in  SEXREF  at  NXREF. 
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This  node  is  then  processed  (scanned)  by  examining  every  arc  going  out  of  this  node 
and  every  arc  going  into  the  node.  If  the  STATE  of  the  node  at  the  other  end  of  an  arc  is 
1  (unlabelled)  then  a  label  will  be  assigned  to  that  node  and  it  will  become  labelled-and- 
unscanned  (STATE  =  2)  if: 

a.  the  node  is  at  the  end  of  an  outgoing  arc  and  the  arc  flow  is  less  than  its 
capacity,  or 

b.  the  node  is  at  the  end  of  an  incoming  arc  and  the  arc  flow  is  greater  than  zero. 

When  all  outgoing  and  incoming  arcs  have  been  processed  the  current  node  is  assigned 
STATE  =  3,  labelled  and  scanned.  At  this  point  the  STATE  of  the  sink  node  is  checked.  If 
it  is  not  labelled  processing  will  be  transferred  to  statement  3030  to  find  the  next 
labelled-and-unscanned  node. 

A  label  on  the  sink  node  indicates  that  a  flow  augmentation  path  from  the  source  to 
sink  exists.  This  path  is  traversed  in  reverse  order,  from  sink  to  source,  by  using  the 
labelling  information  in  the  array  NPATH.  The  labelling  information  is  also  used  when 
computing  a  new  flow  for  each  arc  in  the  path. 

The  two  stage  process,  labelling  and  then  augmenting,  is  repeated  until  no 
augmentation  path  can  be  found.  This  condition  indicates  that  the  maximum  flow  and  the 
minimum  cut  have  been  found. 

The  flows  in  arcs  out  of  the  source  node  are  then  summed  because  it  represents  the 
total  life  cycle  repair  cost.  The  total  cost  for  support  equipment  is  also  determined  by 
examining  the  STATE  associated  with  each  depot  and  base  support  equipment  node. 

2.17  Subroutine  OUTPUT 

OUTPUT  is  called  from  MAIN  to  print  the  optimal  solution  results.  This  includes 
support  equipment  decisions  plus  LRU  and  SRU  repair  level  decisions.  Decisions  are 
determined  by  using  the  STATE  values  assigned  to  nodes  during  the  first  stage  of  the 
labelling  algorithm  in  subroutine  MAXFLO.  An  arc  of  the  network  will  be  a  member  of 
the  minimum  cost  cut  for  the  network  if  the  source  of  the  arc  is  a  labelled  node  and  the 
destination  node  for  the  arc  is  an  unlabelled  node  (see  Flows  in  Networks,  page  18).  This 
property,  combined  with  the  fact  that  the  source  node  for  the  network  will  always  be 
labelled  and  that  the  sink  node  for  the  network  will  always  be  unlabelled,  permits  easy 
identification  of  SE  and  item  decisions. 

The  first  part  of  the  routine  prints  the  results  for  depot  and  base  support  equipment. 
A  depot  SE  will  be  part  of  the  minimum  cost  solution  if  its  network  node  is  unlabelled. 
Conversely,  a  base  SE  will  be  part  of  the  minimum  cost  solution  if  its  network  node  is 
labelled. 

This  is  followed  by  the  loop  DO  3600  which  is  traversed  for  every  LRU  failure  mode. 
For  each  failure  mode  the  variables  NODEL  and  NODER  are  used  as  pointers  to  the 
STATE  for  the  left  node  (depot)  and  the  right  node  (base),  respectively.  The  two  values  in 
STATE  are  tested  and  a  transfer  to  statement  3460,  3470,  or  3480  is  executed 
corresponding  to  depot  repair,  scrap,  and  base  repair.  Next,  if  the  failure  mode  has  no 
associated  SRU  a  transfer  is  made  to  statement  3493,  3500,  or  3510  for  the  proper  WRITE 
statements.  If  there  is  an  SRU  the  STATE  of  its  left  and  right  side  nodes  are  teste .1  and  a 
transfer  is  made  to  3530,  3550,  or  3570  for  the  appropriate  depot,  scrap,  and  bace  WRITE 
statements. 


After  the  DO  3600  loop  the  totals  for  LRU,  SRU,  and  SE  costs  are  written  and  a 
RETURN  executed. 

2.18  Subroutine  UCLSA 

UCLSA  is  called  from  MAIN  to  determine  the  effects  of  LRU  and  SRU  unit  cost 
changes.  The  routine  was  originally  written  to  determine  if  decision  changes  would  occur 
as  the  LRU  unit  cost  was  varied  across  a  range  of  values  and  to  display  the  results  of  this 
investigation.  The  routine  was  modified,  by  adding  logical  IF  statements  and  SRU  cost 
computations,  to  determine  and  display  the  effects  of  SRU  cost  variations.  Arguments  to 
the  routine  include  an  LRU  pointer,  a  failure  mode  pointer,  a  zero-one  indicator  for  LRU 
versus  SRU  computations,  plus  factors  specifying  the  low  end  and  high  end  of  the  cost 
range  to  be  investigated. 

Processing  in  the  routine  is  essentially  the  same  for  LRU  and  SRU  analyses.  For  an 
LRU  analysis  the  low  end  LRU  cost  is  used  to  calculate  new  network  arc  costs  and  the 
new  network  is  solved  for  optimum  repair  level  decisions.  Next,  network  arc  costs  and  the 
optimum  repair  decisions  are  found  using  the  high  end  LRU  cost.  Then,  if  the  decisions  at 
the  low  end,  the  middle,  and  the  high  end  are  identical  appropriate  messages  are  written 
to  an  output  print  file.  If  the  sets  of  repair  decisions  are  not  identical  then  a  binary 
search  across  the  cost  range  is  conducted  to  find  all  points  at  which  repair  decision 
changes  occur.  As  each  change  point  is  found  appropriate  information  is  written  to  an 
output  print  file  and  also  summarized  on  a  temporary  disk  file  for  retrieval  and  printing  by 
MAIN.  The  details  for  this  processing  are  presented  in  subsequent  paragraphs  with  the 
LRU  versus  SRU  differences  highlighted. 

At  the  beginning  of  the  routine  are  initialization  statements  for  certain  variables 
(e.g.,  NREC,  NDEC,  SAFILE,  and  LCRCMI)  and  WRITE  statements  to  print  the 
parameters  for  the  analysis.  The  initialization  and  WRITE  statements  will  be  somewhat 
different  for  LRU  versus  SRU  analyses.  In  addition,  for  an  SRU  analysis  the  subroutine 
arguments  for  the  SRU  cost  range  to  be  examined  are  used  to  compute  a  corresponding 
LRU  cost  range.  Incorporating  this  range  translation  and  a  modification  where  costs  are 
computed  permits  the  SRU  analysis  to  be  accomplished  with  the  LRU  analysis  logic. 

Next,  at  statement  30  the  low  and  high  dollar  values  for  the  cost  range  examined  are 
computed  and  written  to  file  code  17,  for  LRU  analyses,  or  file  code  18,  for  SRU  analyses. 
Then,  the  loop  DO  39  is  executed  to  initialize  the  values  in  SADECL,  for  each  LRU  failure 
mode,  and  in  SADECS,  for  the  corresponding  SRUs.  Each  failure  mode  and  each  SRU  has 
10  values  available  to  it  in  these  arrays  for  recording  decision  changes  during  sensitivity 
analysis.  The  first  of  these  values  is  initialized  to  1,  2,  or  3  to  indicate  that  the  optimal 
decision  using  the  unmodified  input  factors  was  depot,  scrap,  or  base,  respectively.  The 
remaining  9  values  are  initialized  to  4  to  indicate  "no  change  in  decision  from  the  previous 
decision  point".  With  this  definition  for  4  an  entry  into  the  arrays  only  needs  to  be  made 
if  a  decision  change  actually  occurs. 

After  these  preliminary  steps  the  sensitivity  analysis  investigation  starts  bv 
examining  the  low  end  of  the  cost  range.  At  statement  2 00  the  variables  SF  and  1RETRN 
are  assigned  in  preparation  for  a  transfer  to  statement  1000.  At  1000  the  LRU  unit  cost  is 
modified  by  multiplying  it  by  SF  and  subroutine  LRUCMP  is  called  to  compute  new  values 
for  LRU  logistics  costs.  Then,  the  loop  DO  1  1  00  is  executed  to  compute  new  logistics  cost 
values  for  each  LRU  failure  mode  and  for  each  associated  SRU.  Conditional  logic  is 
included  in  the  loop  so  that  the  cost  of  each  SRU  is  modified  during  an  LRU  analysis  but 
the  cost  of  only  one  SRU  is  modified  during  an  SRU  analysis.  Also  in  the  loop  are 


statements  to  assign  the  new  logistics  costs  to  the  appropriate  arcs  in  the  network 
structure.  After  the  loop  a  transfer  is  made  back  to  statement  110  where  calls  to  RESET 
and  MAXFLO  occur.  RESET  is  required  because  the  newly  computed  logistics  costs  will 
be  smaller  than  those  they  replace  and,  therefore,  cause  some  arcs  to  have  flow  greater 
than  capacity.  The  characteristics  of  the  optimal  solution  found  by  MAXFLO  (i.e.,  the 
state  of  each  node  plus  the  capacity  and  flow  for  each  arc)  are  saved  in  the  arrays 
LOSTAT,  LOCAP,  and  LOFLOW  by  the  loops  DO  120  and  DO  130.  Also  within  these  loops 
are  statements  to  restore  the  characteristics  of  the  baseline  optimal  solution  (from  the 
arrays  OPSTAT,  SAVCAP,  and  SAVFLO)  and  to  determine  if  the  low  end  decisions  are 
different  than  the  baseline  decisions.  If  there  are  no  decision  differences  a  message  is 
written  out;  otherwise,  subroutine  DECIDE  is  called  to  write  messages  stating  the  decision 
changes.  Low  end  processing  is  completed  by  writing  the  total  cost  for  the  low  end 
decisions  and  saving  appropriate  values  in  DECVLO  and  DECVHI. 

Processing  for  the  high  end  of  the  sensitivity  cost  range  is  done  from  statement  2 00 
through  240.  Parameters  are  set  and  a  transfer  to  statement  1000  is  made  so  that  high 
end  logistics  costs  can  be  computed  and  assigned  to  the  associated  network  arcs.  Upon 
return  from  the  cost  computation  logic  the  subroutines  RESET  and  MAXFLO  are  called  to 
determine  the  high  end  optimal  solution.  High  end  computations  are  completed  by  saving 
the  characteristics  of  the  solution  (in  HISTAT,  HICAP,  and  HIFLOW)  and  restoring  the 
characteristics  of  the  baseline  solution. 

The  binary  search  for  decision  change  points  occurs  from  statement  300  to 
statement  400.  The  search  begins  with  the  loop  DO  310  which  tests  for  decision  changes 
in  two  intervals  —  between  the  low  end  and  the  middle,  and  between  the  middle  and  the 
high  end.  One  or  more  change  points  will  exist  in  an  interval  only  if  the  decisions  at  the 
end  points  of  the  interval  are  different.  Therefore,  if  the  3  sets  of  state  values  (in 
LOSTAT,  STATE,  and  HISTAT)  are  identical  there  are  no  decision  changes  across  the 
range  of  investigation.  In  this  case  an  appropriate  message  is  written  and  execution 
transfers  to  statement  470. 

When  decision  change  points  do  exist  they  could  be  in  one  interval  or  in  both 
intervals.  Since  only  one  change  point  can  be  located  at  a  time  the  latter  situation  is 
handled  by  building  a  push-down  stack  of  search  problems.  Whenever  it  is  determined  that 
two  intervals  must  be  searched  for  change  points  the  characteristics  of  the  higher  interval 
problem  are  written  to  the  random  access  files  13  and  14.  The  problems  on  the  files  are 
later  retrieved  and  solved  using  a  last-in  first -out  criteria  (i.e.,  a  LIFO  queue).  When  only 
the  lower  or  upper  interval  contains  a  change  point  the  width  of  the  interval  is  compared 
to  a  predefined  tolerance  value,  UCDLTA.  If  the  width  is  less  than  UCDLTA  a  transfer  to 
statement  400  occurs;  otherwise,  the  interval  width  is  bisected  by  using  an  LRU  unit  cost 
midway  between  the  interval  end  point  values.  For  the  new  LRU  cost,  logistics  costs  are 
computed  and  assigned  utilizing  the  logic  following  statement  1000;  RESET  is  called  at 
statement  390;  the  optimal  solution  is  found  by  MAXFLO;  and  a  transfer  back  to 
statement  300  restarts  the  search  for  a  decision  change  point. 

As  previously  stated,  processing  commences  at  statement  400  when  the  interval 
containing  decision  changes  is  not  wider  than  the  tolerance  width  value.  Processing 
includes  writing  a  message  which  specifies  the  item  cost  values  at  the  interval  end  points, 
saving  the  end  point  cost  values  in  DECVLO  and  DECVHI,  calling  DECIDE  to  write  the 
specific  decision  changes,  and  writing  the  total  life  cycle  repair  costs. 


If  another  problem  exists  on  files  13  and  14  it  is  retrieved  and  a  transfer  to 
statement  380  occurs  to  continue  the  search  for  decision  change  points.  When  no 
additional  problems  exist  messages  are  written  to  indicate  that  no  changes  exist  between 
the  last  change  point  located  and  the  high  end  of  the  sensitivity  cost  range.  Then,  the 
loop  DO  490  is  executed  to  restore  the  arrays  CAP  and  FLOW  from  SAVCAP  and  SAVFLO. 

The  last  section  of  logic,  from  statement  510  through  600,  writes  summary 
information  from  the  sensitivity  investigation.  The  section  is  reached  either  when  all 
change  points  have  been  found  and  detailed  or  when  the  eleventh  change  point  has  been 
found.  In  the  latter  case  the  summary  information  is  written  for  the  first  ten  points,  to 
clear  the  arrays  for  additional  data,  and  then  processing  transfers  back  to  continue  with 
the  eleventh  point.  In  either  case  the  first  summary  data  record  written  to  SAFILE  will 
specify  the  number  of  change  points  found  (NDEC)  and  the  item  cost  at  the  low  end  of  the 
decision  intervals.  An  IF  test  is  done  to  determine  if  NDEC  is  1.  This  value  indicates  that 
there  is  only  one  set  of  decisions  across  the  entire  cost  range  {no  decision  change  points) 
and  results  in  a  RETURN  back  to  MAIN.  For  NDEC  greater  than  one,  writes  to  SAFILE 
occur  which  specify,  for  each  change  point,  the  item  cost  at  the  high  end  of  the  decision 
intervals,  the  failure  mode  repair  decisions,  the  SRU  repair  decisions,  the  number  of 
LRU/SRU  decision  changes,  and  the  number  of  SE  decision  changes.  Then,  if  more  than 
ten  change  points  exist  the  arrays  SADECL  and  SADECS  are  reinitialized  and  processing 
resumes  at  statement  416;  otherwise,  a  RETURN  to  MAIN  occurs. 

2.19  Subroutine  DECIDE 


DECIDE  is  called  from  UCLSA  and  from  MTBFSA.  Its  purpose  is  to  specifically 
determine  the  decision  changes  identified  by  the  sensitivity  analysis  routines  and 
document  the  changes  on  an  output  print  file.  Both  sensitivity  rou:ines  contain  two 
CALLs  to  DECIDE  —  the  first  to  document  changes  from  the  baseline  decisions  to  the 
low  end  of  the  sensitivity  range,  and  the  second  to  document  each  change  point  located 
within  the  range  of  sensitivity  investigations. 

The  two  arguments  IND1  and  IND2  are  each  set  to  zero  or  one  by  the  calling  routine 
to  control  comparison  processing  within  DECIDE.  A  value  of  one  for  IND1  means  the 
decision  changes  between  the  low  end  and  middle  of  an  interval  are  to  be  documented, 
while  a  zero  means  changes  between  the  middle  and  high  end  are  to  be  documented.  IND2 
is  one  in  the  first  call  from  UCLSA  and  MTBFSa  to  reverse  the  decision  change  direction, 
that  is,  a  one  means  document  changes  from  the  middle  to  the  low  end  rather  than  from 
low  to  middle  (or  middle  to  high)  as  is  the  case  when  IND2  is  zero. 

The  routine  is  composed  of  three  logical  sections:  one  for  depot  SE  changes,  one  for 
base  SE  changes,  and  one  for  LRU  failure  mode  and  SRU  changes.  The  first  two  are  short, 
straightforward,  and  essentially  identical.  The  third  is  significantly  longer  but  is  also  free 
of  complexity.  Each  of  the  three  sections  contains  dual  sets  of  logic.  One  set  uses  the 
node  state  values  in  arrays  LOSTAT  and  STATE,  when  IND1  is  one;  while  the  other  set 
uses  values  in  STATE  and  HISTAT,  when  IND1  is  zero.  Because  the  logic  sets  are  identical 
in  other  respects  the  dual  nature  of  each  section  will  be  ignored  and  the  remainder  of  this 
description  will  present  the  logic  for  1ND1  equal  to  1. 

The  first  section  is  the  DO  30  loop  which  is  traversed  for  each  depot  SE. 
Corresponding  values  in  LOSTAT  and  STATE  are  compared.  If  the  values  are  equal  there 
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is  no  decision  change  for  the  SE  and,  therefore,  no  further  processing  in  the  loop.  Values 
which  are  different  indicate  differing  SE  requirements  between  the  low  end  and  middle 
decision  solutions.  In  this  case  a  message  describing  the  change  is  written,  a  counter  for 
the  number  of  SE  changes  is  incremented,  and  the  loop  begins  for  the  next  depot  SE. 

The  DO  50  loop  is  used  to  document  the  decision  changes  for  base  SE.  It  is  logically 
identical  to  the  depot  SE  loop  --  it  tests  for  changes  using  LOSTAT  and  STATE,  writes 
messages  for  the  changes,  and  increments  the  count  of  changes. 

The  logic  for  LRU  failure  mode  and  SRU  decision  changes  is  in  the  DO  260  loop  and 
is  very  similar  to  the  logic  for  SE  just  described.  The  biggest  difference  is  that  the 
decision  for  an  SE  is  determined  from  the  state  value  for  its  single  network  node,  but  the 
decision  for  a  failure  mode  or  SRU  is  determined  from  the  state  values  of  its  two  nodes. 
For  this  reason,  IF  statements  at  the  beginning  of  the  loop  test  two  LOSTAT  values  and 
then  assign  the  value  1,  2,  or  3  (for  depot,  scrap,  or  base)  to  the  variable  LOLVL.  Similar 
tests  on  two  STATE  values  result  in  a  1,  2,  or  3  assignment  to  the  variable  MIDLVL.  Now, 
if  LOLVL  and  MIDLVL  are  equal  there  is  no  decision  change  for  the  failure  mode;  if  they 
are  different  there  is  a  change.  Further  processing  in  the  loop  is  dependent  on  the 
existence  of  an  SRU  associated  with  the  failure  mode.  If  there  is  no  SRU  then  either  a 
message  is  written  if  there  is  a  failure  mode  decision  change,  or  processing  continues  with 
the  next  failure  mode  if  there  is  no  decision  change.  The  existence  of  an  SRU 
necessitates  checking  it  for  a  decision  change  before  proceeding.  Logical  IF  tests  using 
the  SRU  node  values  in  LOSTAT  and  STATE  result  in  the  assignment  of  a  1,  2,  or  3  to 
LOLVL  and  to  MIDLVL.  If  an  LRU  and/or  SRU  decision  change  has  occurred  an 
appropriate  message  is  written,  a  counter  for  the  number  of  LRU  and  SRU  changes  is 
incremented,  and  the  loop  continues.  After  all  failure  modes  and  SRUs  have  been 
processed  the  count  of  item  changes  is  saved  in  NLSCHG  and  a  RETURN  occurs. 

2.20  Subroutine  MTBFSA 

MTBFSA  is  called  from  MAIN  to  determine  the  effects  of  changes  in  the  MTBF  for 
an  LRU.  The  effects  could  be  changes  in  failure  mode  repair  level  decisions,  SRU  repair 
level  decisions,  and/or  changes  to  SE  decisions.  Arguments  to  the  routine  include  a 
pointer  to  an  LRU  record  and  factors  specifying  the  low  end  and  high  end  of  the  MTBF 
range  to  be  investigated.  The  logic  flow  and  structure  is  essentially  the  same  as  in 
UCLSA.  The  differences  exist  primarily  because  UCLSA  has  dual  sensitivity  capability, 
LRU  cost  and  SRU  cost,  and  because  there  is  an  inverse  relationship  between  MTBF  and 
life  cycle  cost  rather  than  the  direct  relationship  between  item  cost  and  life  cycle  cost. 

Just  like  UCLSA,  the  beginning  of  the  routine  has  initialization  statements  for 
certain  variables  (e.g.,  NREC,  NDEC,  etc.),  WRITE  statements  to  document  the 
subroutine's  parameters,  and  initialization  statements  for  the  arrays  SADECL  and 
SADECS. 

This  is  followed  by  statements  to  investigate  sensitivity  in  the  low  end  of  the  MTBF 
range.  The  logic  parallels  UCLSA  in  that  new  costs  are  computed  and  assigned  by 
statements  at  the  end  of  the  routine;  the  new  cost  network  is  solved  and  its 
characteristics  saved  in  LOSTAT,  LOCAP,  and  LOFLOW;  and  solution  differences  are 
documented  by  DECIDE  if  there  are  any.  The  only  significant  difference  from  UCLSA  is  a 
call  to  SECMP.  This  is  required  because  the  lower  MTBF  value  results  in  more  item 
failures;  thus,  it  could  result  in  a  higher  SE  requirement  (e.g.,  2  units  instead  of  1). 


Next,  the  optimal  solution  for  the  high  end  of  the  MTBF  range  is  found  and  its 
characteristics  saved  in  HISTAT,  HICAP,  and  HIFLOW.  Once  again,  SECMP  is  called  in 
case  SE  requirements  have  changed  as  a  result  of  the  new  MTBF. 

Statements  from  300  to  500  contain  the  binary  search  logic  for  the  decision  change 
points.  The  procedure  mirrors  the  corresponding  section  of  UCLSA  except  that  an 
additional  test  for  changes  in  SE  quantities  is  required.  A  change  in  quantities  is  signalled 
by  a  change  in  life  cycle  SE  costs  coupled  with  no  decision  changes. 

Statement  500  is  reached  when  a  decision  change  point  interval  has  been  narrowed 
down  to  no  larger  than  the  predefined  tolerance  value  DELTA.  The  decision  changes  are 
documented  by  subroutine  DECIDE  and  the  next  interval  to  be  searched  is  retrieved  from 
files  13  and  14.  When  no  additional  problems  exist  to  be  solved  a  transfer  to  600  occurs  so 
that  a  final  message  can  be  written  and  the  arrays  CAP  and  FLOW  restored. 

Finally,  the  statements  after  700  summarize  the  sensitivity  results  to  file  19  just  as 
UCLSA  writes  to  files  17  and  18.  Then,  at  800  parameters  are  set  so  that  LRU  and  SRU 
costs  can  be  recalculated  to  reflect  the  input  MTBF  value.  This  is  required  because  the 
cost  computation  routines  also  compute  and  save  monthly  maintenance  man-hours  which 
affect  SE  quantity  requirements  and  are  directly  affected  by  LRU  MTBF  values. 
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Appendix  A:  Variables  Dictionary 


This  appendix  is  primarily  an  alphabetical  listing  of  FORTRAN  variable  names  used  in 
the  NRLA  program.  The  list  contains  dimensioning  and  descriptive  information  for  the 
variables  assigned  to  COMMON  areas  and  for  other  significant  variables. 

Some  program  variables  are  not  listed  and  described  here.  Some  were  omitted 
because  their  usage  is  restricted  to  only  a  few  successive  lines  of  code  and  the  variable's 
function  is  clear  from  the  context.  For  example,  in  the  MAIN  routine  the  variable 
C2DC2S  is  used  for  the  sum  of  C2D  and  C2S  and  then  used  in  a  WRITE  statement  to  print 
the  sum.  Other  variables  were  omitted  because  the  value  and  function  are  implied  by  the 
name.  For  example,  the  program  uses  ZERO  for  0.,  MINUS1  for  -1,  PLUS1  for  +1.,  and 
IMON,  IDAY,  IYR  as  integer  values  for  the  current  date's  month,  day,  and  year. 

For  each  variable  in  the  list  three  columns  of  information  are  provided.  The  first 
column  contains  the  variable  name  and,  if  applicable,  dimensioning  information  below  it 
within  parentheses.  The  dimensioned  size  may  be  an  integer  constant,  like  (20)  for  CARD; 
an  integer  variable,  like  (MAXNOD)  for  BACKSP;  or  a  combination  of  variable  and 
constant,  like  (MAXLFM,  2)  for  LFMWUC.  Where  a  variable  appears  as  a  dimension  it 
should  not  be  interpreted  as  "variable  dimensioning".  The  proper  interpretation  is  that  the 
dimensioned  size  will  vary  among  different  applications  but  all  arrays  dimensioned  with  a 
particular  variable  need  to  be  the  same  size.  To  clarify  this  point,  the  variable  BASESC  is 
shown  with  the  dimensioning  specification  "(MAXSRU)".  This  indicates  that  BASESC 
needs  to  be  dimensioned  for  the  maximum  number  of  SRUs  in  the  program's  input  data 
file.  Thus,  BASESC  may  be  dimensioned  for  20  SRUs  in  one  application  but  for  40  SRUs  in 
another.  In  addition,  regardless  of  the  specific  dimensioned  size  for  BASESC  it  needs  to 
be  the  same  size  as  other  SRU  related  arrays  (BMMHS,  BRLDS,  etc). 

The  second  column  of  information  for  each  variable  indicates  the  labelled  COMMON 
area  containing  the  variable  (COSTF,  MSDAT,  etc.)  or  indicates  the  name  of  the 
subroutine(s)  containing  the  variable  if  it  is  not  in  a  COMMON  area.  Subroutine  names  are 
easily  differentiated  from  COMMON  names  because  they  are  indented  by  one  space  in  the 
column.  For  some  variables  the  second  column  value  is  "N/A"  to  indicate  that  the 
COMMON  and  subroutine  classification  are  "not  applicable"  --  variable  names  used  in 
many  subroutines  but  not  included  in  a  COMMON  area  (I,  J,  K,  etc.). 

A  definition  for  each  variable  is  given  in  the  third  column  of  information.  This 
column  may  also  describe  the  function  of  the  variable  and  will  specify,  for  user  input  data 
values,  the  units  associated  with  the  variable  (dollars,  pounds,  etc.)  and  the  source  data 
record  for  the  value. 
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of  an  SRU  if  the  repair  is  done  at  the  depot  (man-hours/ 
repair,  SRU  Data  Record) 
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(MAXSE)  cost  of  new  facilities  for  support  equipment  ($,  Support 
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(MAXLFM)  of  which  is  a  pointer  to  the  network  arc  for  scrap  option 
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IFLAG  MAIN  integer  count  of  errors  detected  during  input  data  processing 

IMC  SSDAT  initial  management  cost  to  introduce  a  new  item  (assembly 

or  piece-part)  into  the  Air  Force  wholesale  level  inventory 
system  ($/item,  Supply  System  Data  Record) 
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(MAXSRU)  the  SRU  depot  repair  cycle  time  for  CONUS  bases;  the 

elapsed  time  from  removal  of  a  failed  SRU  (from  the 
LRU)  at  a  CONUS  base  until  the  item  could  become  a 
serviceable  spare  in  depot  stock  (months,  SRU  Data  Record) 
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S5DAT  cost  per  original  page  of  technical  data  produced  by  the 

contractor  to  support  item  repairs  ($/page,  bupplv  Data 
Record) 
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UCPPS  SRUDAT  an  array  of  values,  one  for  each  SRU,  each  of  which  is 

(MAXSRU)  the  total  cost  of  all  non-reparable  assemblies  and/or  piece- 

parts  required  for  repair  of  an  SRU  ($,  SRU  Data  Record) 
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APPENDIX  B.  NRLA  Program  Array  Dimensions 


Introduction.  The  purpose  of  this  Appendix  is  to  provide  detailed  information  about 
the  dimensioned  sizes  of  arrays  in  the  program.  The  program  user  needs  this  information 
so  that  he  can  determine  if  the  default  array  sizes  are  adequate  for  his  data  file  or  if 
some  tailoring  of  array  sizes  is  necessary. 

The  arrays  of  the  program  can  be  grouped  according  to  the  type  of  data  they  hold. 
One  such  classification  is  shown  in  Table  B.l  with  the  number  of  arrays  of  each  type  and 
the  default  size  for  each  array.  As  the  Table  indicates,  there  are  16  arrays  for  support 
equipment  data  and  they  can  hold  information  for  up  to  20  support  equipment  resources. 
Similarly,  there  are  16  arrays  for  LRU  data  which  are  dimensioned  for  up  to  25  different 
LRUs.  The  adequacy  of  the  default  sizes  can  be  determined  for  some  classifications  by 
simply  counting  input  data  records  (e.g.,  support  equipment  and  LRUs).  For  other 
classifications,  network  nodes  and  network  arcs,  a  simple  formula  is  used  to  determine  the 
array  size  requirements. 

Where  the  default  sizes  are  insufficient,  program  changes  are  required.  These 
changes  must  be  made  in  the  main  routine  of  the  program  and  in  every  subroutine  (except 
SORT).  Although  the  program  changes  are  straightforward  and  relatively  simple,  they 
must  be  done  accurately.  Errors  committed  while  redimensioning  arrays  could  cause 
program  aborts  or,  even  worse,  could  cause  computational  errors  which  could  remain 
undetected. 

The  remaining  paragraphs  of  this  Appendix  give  details  about  the  dimensioning 
statements  for  the  array  classes  listed  in  Table  B.l.  A  figure  is  provided  for  each 
classification  showing  the  program's  dimensioning  statements  with  their  default  sizes  and 
with  increased  sizes.  The  Appendix  concludes  with  a  discussion  of  data  file  changes 
required  as  a  function  of  redimensioning  arrays  in  the  program. 

Support  Equipment.  Arrays  for  support  equipment  data  are  contained  in  the  labelled 
common  areas  SEIN  and  SECOMP  as  shown  in  Figure  B.la.  The  default  size  for  these 
arrays  is  20.  For  data  files  containing  more  than  20  SE  resources,  these  16  arrays  must  be 
increased  in  size  to  accommodate  the  input  data.  In  addition,  the  value  for  MAXSE  must 
be  changed  so  that  it  is  equal  to  the  new  dimensioned  size  for  the  arrays.  Figure  B.lb 
shows  the  arrays  dimensioned  for  up  to  35  SE  resources  and  MAXSE  changed  accordingly. 

LRUs.  As  LRU  factors  are  read,  from  type  '31'  data  records,  they  are  stored  in  the 
arrays  shown  in  Figure  B.2a.  These  16  arrays  need  to  be  dimensioned  at  least  as  large  as 
the  number  of  LRU  data  records  in  the  input  file.  Figure  B.2b  shows  the  arrays  changed 
to  allow  up  to  40  LRU  data  records  and  the  value  for  MAXLRU  changed  to  specify  the 
new  maximum  sizes. 

LRU  Failure  Modes.  The  arrays  for  LRU  failure  mode  input  data,  from  type  '41' 
data  records,  and  the  arrays  for  computed  values  are  defined  in  the  labelled  COMMON 
areas  LFMDAT  and  FMCOMP,  respectively.  These  27  arrays  are  shown  in  Figure  B.3a 
with  their  default  dimensions.  Increased  array  sizes  allowing  up  to  90  failure  modes  are 
shown  in  Figure  B.3b  with  the  appropriate  change  to  MAXLFM. 

NOTE:  There  are  four  other  arrays  for  LRU  failure  mode  related  data  which  must  be 
dimensioned  the  same  as  the  arrays  of  Figure  B.3.  Three  of  these  are  listed  with  Item  to 
Arc  Pointers  and  the  other  with  Sensitivity  Analysis  arrays. 
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TABLE  B.l.  NRLA  Program  Array  Classifications 


Array  Classification 

No.  of  Arrays 

Default  Size 

Support  Equipment 

16 

20 

LRUs 

16 

23 

LRU  Failure  Modes 

27 

40 

SRUs 

33 

40 

Item-to-Arc  Pointers 

8 

40 

SE  Cross  Reference 

3 

210 

Network  Nodes 

6 

200 

Network  Arcs 

7 

400 

Sensitivity  Analysis 

13 

mixture 

SRUs.  The  33  arrays  defined  for  SRU  input  values  and  for  SRU  computed  values  are 
shown  in  Figure  B.4a  with  their  default  sizes.  Figure  ?>.4b  shows  the  arrays  redimensioned 
to  accommodate  up  to  80  SRU  data  records,  type  '51'  records,  in  the  input  file. 

NOTE:  There  are  six  other  arrays  for  SRU  related  data  which  need  to  be  dimensioned  the 
same  as  the  arrays  of  Figure  B.4.  Five  of  these  are  listed  with  Item  to  Arc  Pointers  and 
the  other  with  Sensitivity  Analysis  arrays. 

Item  to  Arc  Pointers.  The  8  array  in  the  COMMON  area  ARCPTR  provide  storage 
space  for  pointers  from  item  data  to  the  corresponding  network  arc  data.  The  arrays 
LDARC,  LSARC,  and  LBARC  contain  the  LRU  failure  mode  data  to  network  arc  pointers. 
These  3  arrays  need  to  be  dimensioned  the  same  as  the  other  failure  mode  related  arrays. 
The  5  remaining  arrays  contain  pointers  Fom  SRU  data  to  the  corresponding  network  arc 
data  values.  Figure  B.5a  shows  the  arrays  with  their  default  sizes  and  Figure  B.5b  shows 
them  modified  to  be  consistent  with  MAXFLM  and  MAXSRU  of  Figure  B.3  and  B.4, 
respectively. 

SE  Cross  Reference.  The  3  arrays  of  the  labelled  COMMON  area  SEXDAT  contain  the 
item-to-SE  requirements  data  and  that  data  inverted  into  SE-to-item  relationships. 

As  SE  requirements  data  is  read  from  the  type  '32',  '42',  and  '32'  data  records,  it  is  saved 
sequentially  in  the  array  ITMSEN.  Consequently,  the  size  requirement  for  this  array  can 
be  determined  by  counting  the  SE  Resource  Numbers  specified  on  the  '32',  '42',  and  '32' 
records.  The  dimensioned  size  for  ITMSEN  must  be  assigned  as  the  value  for  the  variable 
MAXITM. 

The  arrays  SEXREF  and  NXT1TM  are  used  for  the  SE-to-item  relationships.  In  general, 
these  arrays  need  to  be  larger  than  ITMSEN.  This  occurs  because  an  SE  Resource  Number 
from  a  type  '32'  card  (LRU  requirements)  is  stored  once  in  ITMSEN,  but  it  requires  a 
separate  entry  in  SEXREF  and  NXTITM  for  every  failure  mode  of  the  LRU.  Thus,  if  a  '32' 
card  has  4  SE  Resource  Numbers,  it  will  use  4  entries  in  ITMSEN.  Then,  if  the 
corresponding  LRU  has  10  failure  modes,  it  will  need  40  entries  of  SEXREF  and  ITMSEN. 
Similarly,  if  the  LRU  has  20  failure  modes,  it  will  need  80  entries  of  SEXREF  and 
NXTITM.  Therefore,  determining  the  array  size  requirements  for  SEXREF  and  NXTITM  is 
a  two  part  computation. 
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01032 

01033 

01034 

OIC35 

01056 
01057 
01056 
01055 
01060 
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01064 
01065 
01066 
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QUol 
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01033 

010j,4 
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01056 
01057 
0105b 
01055 
01060 
01061 
61062 
01063 
01064 
(1 1  OOt? 
0  1  C  6  0 
01067 
0IO60 


C  TEMPORARY  DATA  INPUT  AREAS 

COMMON  /TEMPIN/ICC, CARD, WUC.C1 ,C2 , C12 .C2PREV  , SEN, SERN, NAME, 

4  CHARS , N 1 3 , N 1 4 , IKON , IDA Y , I YR , IPAGE 

INTEGER  CARD(20)  ,WUC(2) ,NAME(2) ,CHARS(  15) 

INTEGER  01 ,02,C12,C2PREV,SEN,SERN( j6) 

0  TYPE  &  DIMENSION  STATEMENTS  FOR  SUPPORT  EQUIPMENT  (SE)  DATA 

C  SUPPORT  EQUIPMENT  INPUT  VALUES 

COMMON  /SEIN/XSL,LINE,CADB,TECHDP,TRNGto,TRNGC,CODb,FDB, 

A  OPHRS, NSEC1 , bSYHRS 

INTEGER  XSE(20,3) .LINE (20) 

DIMENSION  CADB(20) ,OODb(20) 

DIMENSION  FDB(20) ,OPHRS(20) ,NSEC1(20) ,BSYHRS(20) 

C  COMPUTED  SE  VALUES 

COMMON  /SE COMP/ SECODE,S EPF ,SEPL,REQMT, USEHRS,SEUR,SECOST, 

4  SEAROP , NUMSER , NDSE , NBSE 

INTEGER  SECODEC  20 ) ,SEPF(20) ,SEPL(20) ,REQMT(20) ,SEARCP(20) 
DIMENSION  USEHRS(20) ,SEUR(20) ,SEC0ST(20) 

DATA  MAXSE/20/ 

Fitu-e  i.la.  Support  equipment  a--ays  with  default  sizes. 

C  TEMPORARY  DATA  INPUT  AREAS 

COMMON  /TEMPIN/ ICC, CARD, WUC.C1 ,C2,C12,C2PREV, SEN, SERN, NAME, 

&  CHARS, N1 3, N14,IMCN,1DAY,IYR, IPAGE 
INTEGER  CARD (20) ,WUC(2) ,NAME(2) ,CHARS( 15) 

INTEGER  Cl IC2,C12,C2PREV,SEN,SERN(51) 

C  TYPE  A  DIMENSION  STATEMENTS  FOR  SUPPORT  EQUIPMENT  (SE)  DATA 

C  SUPPORT  EQUIPMENT  INPUT  VALUES 

COMMON  /SLIN/XSL, LINE, CADB.TECHDP , TRNGW , TKNGC, CODb, FDB, 

A  OPHRS, NSECI, bSYHRS 

INTEGER  XSE(35,3) ,LINE(35) 

DIMENSION  CADE(35) ,CODB(3b) 

DIMENSION  FDb( j5) , GPHRS( 35 ) , NSECI ( 36 ) , BSYHRS ( 35 ) 

C  COMPUTED  SE  VALUES 

COMMON  /SECOMP/SECCDE , SEPF , SEPL , RLQMT , USEHRS , SEUR , SECOST, 

&  SEARCP,  U MSER, NDSE, NBSE 

INTEGER  SECODE(35) ,SEPF(35) ,SEPL(35) ,REQMT(35) ,SEARCP(35) 
DIMENSION  USE1IRS(35) ,SEUR(35) ,SECGST(35) 

DATA  KAXSE/_>5/ 


Fi^u-e  E. 1b.  Suppo-t  equipment  a--ays  with  increased  sizes. 


F  i^ure  b.  1 .  Suppo-t  equipment  a^ays. 


01340 

01350 
01300 
01370 
01360 
0 1  3^0 
01400 
01410 
01420 
0 1  4  JO 
01440 


01340 
0 1 350 
01360 
01370 
01  .>80 
01390 
014C0 
01410 
01420 
0  1  4  jO 
0144C 


Fifcu- 


C  ARRAYS  FOR  LRU  DATA  (  DATA  FOR  ALL  FAILURE  MODES  ) 

C  LRU  DATA  INPUT  VALUES 

COMMON  /LRUDAT/NLRU ,LWUC , UCL,MTbF, RIP , OF ,QPA,WGTL,DRCTC, DRCTO 
&  BRCT , LRUN AM , NSERL , SEPTL , FRSTFM , LASTFM 

C 

INTEGER  LWUC(25,2) ,LHUNAM(25,3) 

REAL  MTbF 

INTEGER  FRSTFMC 25 ) , LASTFM ( 25) , SEPTU  25 ) 

DIMENSION  UCLC25) , MTbF (25) , R1P( 25 ) , UF( 25 ) ,gPA( 25 ) , wGTL( 25 ) 
DIMENSION  DRCTC(25) ,DRCT0(25) ,LRCT(25) ,NSLRL(25) ,TFAILP(25) 
DATA  MAXLRU/25/ 

FifeU-e  b.2a.  LRU  nr*- ays  with  default  sizes. 

C  ARRAYS  FOR  LRU  DATA  (  DATA  FOR  ALL  FAILURE  MODES  ) 

C  LRU  DATA  INPUT  VALUES 

COMMON  /LRUDAT/NLRU , LWUC , UCL , MTbF , RIP , UF , OP  A , WGTL , DRCTC , DRCTO 
4  bRCT.LRUNAM, NSERL, SEPTL, FRSTFM, lASTFM 

C 

INTEGER  LWUC( 40, 2) , LRU NAM ( 40 , 3) 

REAL  MTbF 

INTEGER  FRSTFMC40) ,LASTFM(40) ,SEPTL(40) 

DIMENSION  UCL( 40 ) , MTBF ( 40) ,RIP(40),UF(40), QPA( 40) , WGTL ( 40) 
DIMENSION  DRCTC(40) ,DRCTO(40) ,BRCT(40) ,NSERL(40) ,TFAILP(40) 
DATA  MAXLRU/40/ 

Fi6u-e  b.2b.  LRU  ar-ays  with  increased  sizes. 
b.2  LRU  a^'-ays. 
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01540  C 

01550  C  ARRAYS  FOR  LRU  FAILURE  MODE  DATA 

01560  C  FAILURE  MODE  DATA  INPUT  VALUES 

01570  COMMON  /LFMDAT/LFMS , LFMWUC , FMNUM , FAILP , UCPPFM , WTPPFM, NPPAFM , 

01550  4  FMSEH  R , NADFM , DMMfIFM , BMMHFM , TDPLFM , TRWLFM , TRCLFM , NTDLFM , 

0 1 550  4  NTDLFM , NSERFM , LFMOD , LFMOS, LFKGB , StPTFM , NFMS, SRUPTR , OPDECL 

C 1 600  INTEGER  LFMWUCC 40 ,2) ,OPDECL( 40) 

01010  DIMENSION  FAILP(40) ,UCPPFM(40) ,WTPPFM(40) ,NPPAFM(40) ,FMSEHR(40) 

01020  DIMENSION  NABFM(40) ,DMMHFM(40) ,BMMHFM(40) ,TDPLFM(40) 

016J0  DIMENSION  TRWLFM( 40) , TRCLFM(40) , NTDLFM(40) ,NTBLFM(40) 

01040  DIMENSION  NSERFM ( 40) , LFMOD( 40 ) , LFMOS ( 40 ) , LFMOBC  40 ) 

01650  INTEGER  SRUPTR( 40 ) , SEPTFMC 40 ) , FMNUM( 40 ) 

0 1 o60  DATA  MAXLFM/40/ 

01670  0  QUANTITIES  COMPUTED  BY  SUBROUTINE  FMOMP 

OloUO  COMMON/ FKCOMP/ DEPOLC , SCRPLC , BASELC , TLCDF , FSEUfiD , FSEUH8 

01650  DIMENSION  DEPOLC( 40 ) , SCRPLC( 40) , BASELCC 40 ) ,FSEUHD( 40) ,FSEUHB(40) 

Fi&u-e  Boa.  LRU  failure  mode  a*--ays  with  default  sizes. 

01540  C 

01550  C  ARRAYS  FOR  LRU  FAILURE  MODE  DATA 

01560  C  FAILURE  MODE  DATA  INPUT  VALUES 

01570  COMMON  /LFMDAT/LFMS , LFMWUC , FMNUM , FAILP , UCPPFM , WTPPFM , NPPAFM , 

01580  4  FMSEHR , NABFM , DMMHFM, BMMHFM , TDPLFM .TRWLFM , TRCLFM , NTDLFM , 

01550  4  NTDLFM, NSERFM, LFMOD, LFMOS, LFMOB.SEPTi M, NFMS, SRUPTR, OPDECL 

01600  INTEGER  LFMWUC(90,2) ,0PDECL(90) 

01610  DIMENSION  FAILP(90) ,UCPPFM(90) ,WTPPFM(90) ,NPPAFM(90) ,FMSEHR(90) 

01620  DIMENSION  NABFM(90) ,DMMHFM(90) ,BMMHFM(90) ,TDPLFM(90) 

GlojU  DIMENSION  TRWLFMC90) ,TRCLFM(90) ,NTDLFM(90) ,NTBLFM(90) 

01640  DIMENSION  tJSERFM(90) ,LFMOD(90) ,LFMOS(90) ,LFMOB(90) 

01650  INTEGER  SRUPTRC90) ,SEPTFM(90) ,FMNUM(90) 

01660  DATA  MAXLFM/90/ 

01670  C  QUANTITIES  COMPUTED  BY  SUBROUTINE  FMCMP 

01680  COMMON/ FMCOMP/ DEPOLC, SCRPLC, BASELC, TLCDF, FSEUHD.FSEUHB 

01690  DIMENSION  DEP0LC(90) ,SCRPLC(90) ,bASELC(90) ,FSEUHD(90) ,FSEUiifa(90) 

Figu-e  b.jb.  LRU  failu-e  mode  a-^ays  with  increased  sizes. 


f  ie,u-e  B.j  LRU  failu-e  mode  a’-’-ays 


01710  C 

01720  C  ARRAYS  FOR  SRU  DATA 

01730  C  SRU  DATA  INPUT  VALUES 

01740  COMMON  /SRUDAT/SFMS.SWUC .SRUNAM , UCS, UCPPS, WGTS, WTPPS, SDRCTC, 

01750  &  SSEHR, SDKCTO.SBRCT, NPPAS, NABS, DMMHS, BMMHS.TDPS, TRWS, 

01760  H  TRCS, NTDS, NTBS, NSERS, SOD, SOS, SOB, SEPTS, NSRUS, LRUPTR, OPDECS 

01770  INTEGER  SWUC(40,2) ,SRUNAM(4Q,2) 

0178C  INTEGER  OPDECS(40) 

01790  INTEGER  SFMS,SOD(40) ,S0S(40) ,SOB(40) ,SEPTS(40) 

01800  DIMENSION  UCS(40) ,UCPPS(40) ,WGTS(40) fWTPPS(40) ,SDRCTC(40) 

01610  DIMENSION  SDRCT0C40) ,SBRCT( 40) , NPPAS( 40) , NABS( 40) ,SSEHR(40) 

01820  DIMENSION  DMMHS(40) ,bMMHS(40) ,TDPS(40) ,TRWS(40) ,TRCS(40) 

01830  DIMf 3SI0N  NTDS(40) ,NTBS(40) ,NSERS(40) ,LRUPTR(40) 

01840  DATA  MAXSRU/40/ 

01650  C  QUANTITIES  COMPUTED  BY  SUBROUTINE  SRUCMP 

0 1 860  COMMON  /SCOMP/ DEPOSC , SC RPSC , BASESC , BRLDS , BRLSS , SbRCTP , SBRCTL , 

01870  &  SSEUHD.SSEUHB 

01860  DIMENSION  DEPOSC(40) ,SCRPSC(40) ,BASESC(40) ,BRLDS(40) ,BRLSS(40) 

01890  DIMENSION  SSEUHD( 40) ,SSEUHB(40) 

Figure  L.4a.  SRU  ar*-ay  with  default  sizes. 

01710  C 

01720  C  ARRAYS  FOR  SRU  DATA 

01730  C  SRU  DATA  INPUT  VALUES 

01740  COMMON  /SRUDAT/SFMS.SWUC, SRUNAM, UCS.UCPPS, WGTS, WTPPS, SDRCTC, 

01750  &  SSEUR.SDRCTO.SBRCT, NPPAS, NABS, DMMHS, BMMHS.TDPS, TRWS, 

01760  &  TRCS, NTDS, NTbS, NSERS, SOD, SOS, SOB, SEPTS, NSRUS , LHUPTR, QPDECS 

01770  INTEGER  SWUC(80,2) ,SRUNAM(80,2) 

01780  INTEGER  OPDECS(80) 

01790  INTEGER  SFMS,S0D(80) ,S0S(80) ,SOb(80) ,SEPTS(80) 

01600  DIMENSION  UCS(80) ,UCPPS(80) ,WGTS(80) ,WTPPS(80) ,SDRCTC(80) 

01810  DIMENSION  SDHCT0(80) ,SBRCT(80) ,NPPAS(80) ,NABS(80) ,SSEHR(80) 

01820  DIMENSION  DMMHS(80) ,BMMHS(80) ,TDPS(80) ,TRWS(80) ,TRCS(80) 

01630  DIMENSION  NTDS(80) ,NTBS(80) ,NSERS(80) ,LRUPTR(80) 

01840  DATA  MAXSRU/80/ 

01650  C  QUANTITIES  COMPUTED  BY  SUBROUTINE  SRUCMP 

01860  COMMON  / SCOMP/ DEPOSC , SCRPSC , BASESC , BRLDS , BRLSS , SBRCTP , SBRCTL , 

01670  &  SSEUHD.SSEUHB 

01680  DIMENSION  DEPOSC(80) ,SCRPSC(60) ,BASESC(80) ,BRLDS(80) ,BRLSS(60) 

01890  DIMENSION  SSEU1JD(  80)  ,SSEUHb(  80) 


Figure  B.4U.  SRU  array  with  increased  sizes. 
Figu-e  B.4.  SRU  a--ays. 
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02190  C 

02200  COMMON  / ARCPTK/LDARC ,  LSAhC, LbAhC ,  SDAKC , SSARC , SLARC , 

0  2210  4  SBSARC ,SBDARC 

02220  INTEGER  LDARC(4G) ,LSARC(4G) ,LbAKC(4C) 

G22jG  INTEGER  SDARCC40) ,SSARC(40> ,SBARC(40) ,SBSARC(40) ,SBDARC(40) 

Figure  b.5«.  Item  to  a’-c  pointe-  ar-ays  with  default  sizes. 

02190  C 

C22GG  COMMON  /ARCPTR/LDARC, LSARC , LBARC.SDARC, SSARC, SLARC, 

02210  4  SBSARC, SBDARC 

G2c2C  INTEGER  LDARC(90) ,LSARC(90) ,LBARC(90) 

G22jC  INTEGER  SDARC(8C) ,SSARC(8G) ,SbARC(60) ,SBSARC(80) ,SBDARC(60) 

Fibu,-e  b.56.  Item  to  a-c  pointe'-  a^ays  with  inc-eased  si2es. 
Fifeu^e  b.5.  Item  to  a*"c  pointe1"  arrays. 


G 1  ^  1 0  C 

01y2C  C  ARRAYS  FOR  SE  CROSS  REFERENCE 

01550  COMMON  /SEXDAT/SEXREF , NXTITM, ITMSEh 

01*40  If.TEGEh  SEXREF(  21 0)  ,  NXTITM(  210) ,  ITMSEN  ( 2  10) 

01950  BATA  MAXREF.MAXlTM/210,210/ 

FifaU'-e  B.6a.  SE  c-oss  •"efe-e'ice  a-’-ays  with  default  sizes. 

G191G  0 

0 1520  C  ARRAYS  FOR  SE  CROSS  REFERENCE 

C 1 5 jC  COMMON  /SEXDAT/SEXREF , NXTITM, ITMSEN 

01940  INTEGER  SEXREF(500) ,NXTITM(50G) ,ITMSEN(250) 

01950  DATA  MAXKEF .MAXITM/500 ,250/ 

Fibu-e  b.6b.  SE  c’-oss  '•efe’-e’ice  a^ays  with  ioc-eased  sizes. 

Fibu-e  b.O.  SE  cross  -eference  a^-ays. 
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The  first  part  uses  each  type  '32'  card  separately.  The  number  of  SE  Resource 
Numbers  on  the  card  is  multiplied  by  the  number  of  failure  modes  identified  for  the 
corresponding  LRU.  The  second  part  of  the  computation  is  summing  these  individual 
products,  plus  the  number  of  SE  Resource  Numbers  on  type  '42'  cards,  plus  the  number  of 
SE  Resource  Numbers  on  type  '52*  cards.  This  sum  is  the  number  of  SE-to-item 
relationships. 

Figure  B.6a  shows  the  SE  cross  reference  arrays  with  their  default  dimensions. 
Changing  the  dimensions  to  allow  up  to  250  entries  on  '32',  '42',  and  '52'  data  records  and 
to  allow  up  to  500  SE-to-item  relationships  is  shown  in  Figure  B.6b.  Note  that  MAXREF  is 
set  to  500  to  correspond  to  the  dimensions  for  SEX  REF  and  NXTITM  and  that  MAXITM  is 
set  to  250  to  match  the  dimension  for  ITMSEN. 

NETWORK  NODES.  The  six  arrays  for  network  node  information  are  shown  in 
Figure  B.7a  with  their  default  size  of  200.  The  size  requirement  for  these  arrays  is 
computed  using  the  formula: 

2+(No.  of  SE)  +2*  (No.  of  LRU  failure  modes)  +2*  (No.  of  SRUs) 

For  a  data  file  with  33  SE  resource  data  cards,  85  LRU  failure  mode  data  cards,  and 
75  SRU  data  cards,  the  computation  would  be: 

2+(33)  +2*(85)  +2*(75)  =  355 

Figure  B.7b  shows  redimensioning  to  this  size  and  changing  the  value  of  MAXNOD  to  equal 
the  new  size.  This  computed  value,  355,  provides  precisely  the  amount  of  space  required 
and,  therefore,  has  no  allowance  for  additional  SE,  failure  modes,  or  SRUs  which  might 
subsequently  be  identified.  Consequently,  it  should  be  dimensioned  slightly  larger. 

An  alternate  method  for  determining  the  array  sizes  is  to  use  the  maximum  array 
sizes  for  SE,  LRU  failure  modes,  and  SRUs  rather  than  the  actual,  or  anticipated,  number 
in  a  data  file.  Thus,  the  above  formula  becomes: 

2  +(MAXSE)  +  2*(MAXFLM)  +2*(MAXSRU) 

Using  values  from  Figures  B.lb,  B.3b,  and  B.4b,  the  result  is: 

2+(35)  +2*(90)  +2*(80)  =377 

NOTE:  See  the  Sensitivity  Analysis  paragraph  for  2  additional  arrays  of  network  node 
data  which  must  be  changed  when  MAXNOD  changes. 

NETWORK  ARCS.  Arrays  for  network  arc  data  values  are  located  in  the  labelled 
COMMON  area  ARCDAT  as  shown  in  Figure  B.8a  with  their  default  dimensions.  The  size 
requirement  for  these  arrays  is  computed  using  the  formula: 

(No.  of  SE)  +  3*  (No.  of  LRU  failure  modes)  +  6*  (No.  of  SRUs)  +  (No.  of  SE-to-item 
relationships) 

The  last  term  is  determined  as  described  previously  for  the  SEXREF  and  NXTITM  arrays. 
Similar  to  the  network  node  computation,  an  alternate  form  for  the  formula  using 
maximum  array  sizes  is: 
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(MAXSE)  +  3*  (MAXLFM)  +  6*  (MAXSRU)  +  (MAXREF) 


01970  C 
01980  C 
01990 
02000 
02010  C 
02020 
02030 
02040  C 
02050 
02060  C 

Figu- 

01970  C 
01960  C 
01990 
02000 
02010  C 
02020 
02030 

02040  C 
02050 
02060  C 
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VECTORS  FOR  NETWORK  SOLUTION  DATA 
COMMON  / NODDAT/ NNODES , NP ATH , DLTAFL , STATE , OPSTAT , FW DSP , BACKSP 
COMMON  /NODPTH/LDSE , LDLRU , LDSRU , LBLRU , LBSRU , LOSE , LNODE 
NODE  LABELING  DATA 

INTEGER  NPATH(200) , DLTAFL( 200) ,STATE(200) 

INTEGER  OPSTAT(200) 

NODE  FORWARD  &  BACKWARD  SCAN  POINTERS 
INTEGER  FWDSP( 200) .BACKSP (200) 

DATA  MAXNOD/200/ 


b.7a.  Network  node  ar-ays  with  default  sizes. 


VECTORS  FOR  NETWORK  SOLUTION  DATA 
COMMON  /NODDAT/ NNODES, NPATH, DLTAFL, STATE, OPSTAT, FW DSP, BACKSP 
COMMON  / NODPTR/LDSE , LDLRU .LDSRU , LBLRU , LBSRU , LBSE , LNODE 
NODE  LABELING  DATA 

INTEGER  NPATH( 355) , DLTAFL( 355) ,STATE(355) 

INTEGER  OPSTAT(355) 

NODE  FORWARD  &  BACKWARD  SCAN  POINTERS 
INTEGER  FWDSP(355) ,BACKSP(355) 

DATA  MAXNOD/355/ 

B.7b.  Network  node  arrays  with  increased  sizes. 


Figu-e  B.7.  Network  node  arrays 


020Y 0  C  ARC  DATA 

02080  COMMON  /AkCDAT/NARCS, JUMbO,SRCE,DEST,CAP,FLOW,BKPTR,SAVCAP,SAVFLO 

02090  INTEGER  SRCE(400) ,DEST(400) ,CAP(400) ,FL0W(402) ,bKPTR(400) 

02100  INTEGER  SAVCAP(400) ,SAVFL0(402) 

02110  DATA  MAXAHC/400/ 

Figure  B.8a.  Network  arc  a^-ays  with  default  sizes. 

02070  C  ARC  DATA 

02080  COMMON  /ARCDAT/NARCS, JUMbO,SRCE,DEST, CAP, FLOW, BKPTR,SAVCAP,SAVFLO 

02090  INTEGER  SRCE( 1270) ,DEST( 1270) ,CAP( 1270) ,FLOW( 1272) ,BKPTR( 1270) 

02100  INTEGER  SAVCAPI 1270) ,SAVFLO( 1272) 

02110  DATA  MAXARC/ 1270/ 

Figure  B.8b.  Network  a’-c  arrays  with  increased  sizes. 

Figure  b.8.  Network  a^c  arrays. 


02 1 20  COMMON/ SENSIT/ INDSAT , LOSTAT , HIST AT , LOCAP , HIC AP , LOFLOW , HIFLOW , 

02180  &  NDEC , SADECL , SADECS, DECVLO , DECVHI , NLSCHG , NSECHG , LQCAT 

02140  INTEGER  LOCATC 15) 

C215C  INTEGER  LOSTAT(200) ,HISTAT(200) 

02160  INTEGER  LOCAP(400) ,HICAP(400) ,LOFLOW(400) ,HIFLOW(400) 

02170  INTEGER  SADECL(40, 10) ,SADECS(40, 10) 

02180  DIMENSION  DECVLO( 10) ,DECVHI( 10) ,NLSCHG( 10) ,NSECHG(10) 

Figure  B.9a.  Sensitivity  analysis  ar-ays  with  default  sizes. 

02 1 20  COMMON/ SENSIT/ INDSAT , LOSTAT, HISTAT , LOCAP , HICAP , LOFLOW , HIFLOW , 

02180  &  NDEC, SADECL, SADECS, DECVLO, DECVHI, NLSCHG, NSECHG, LOCAT 

02140  INTEGER  LOCATOR) 

02150  INTEGER  L0STAT( 855) , HIST AT( 355) 

02160  INTEGER  LOCAP< 1270) ,HICAP( 1270) ,LOFLOW( 1270) ,HIFL0W( 1270) 

02170  INTEGER  SADECLC9Q, 10) ,SADECS(80, 10) 

02180  DIMENSION  DECVLOC 10) ,DECVHI( 10) ,NLSCHG( 10) ,NSECHG( 10) 

Figure  B.9b.  Sensitivity  analysis  arrays  with  increased  sizes. 
Figure  B.9.  Sensitivity  analysis  arrays. 


Using  values  from  the  nodes  computations  and  using  500  for  both  SE-to-item 
relationships  and  MAXREF  these  formulas  give: 

(33)+3*(85)+6*(7  5)+(500)  =1238 

(35)+3*(90)+6*(80)+(500)  =1285 

Figure  B.8b  shows  the  arc  arrays  dimensioned  to  hold  data  for  up  to  1270  network 
arcs.  As  shown,  the  value  of  MAXARC  must  be  set  equal  to  the  dimensioned  size.  Also, 
it  is  mandatory  that  the  arrays  FLOW  and  SAVFLO  be  dimensioned  for  2  values  larger 
than  MAXARC.  (The  program  uses  the  values  'MAXARC+1'  and  'MAXARC+2'  as 
subscripts  for  these  arrays.) 

SENSITIVITY  ANALYSIS.  Arrays  in  the  labelled  COMMON  area  SENSIT  are  used  for 
temporary  storage  of  values  by  the  program's  sensitivity  analysis  subroutines.  These 
arrays  are  shown  Figure  B.9a  with  their  default  sizes. 

Two  of  these  arrays,  LOSTAT  and  HISTAT,  must  be  dimensioned  for  the  maximum 
number  of  nodes  in  the  network  (MAXNOD),  that  is,  for  the  same  size  as  the  arrays  in 
Figure  B.7.  The  arrays  LOCAP,  HICAP,  LOFLOW,  and  HIFLOW  must  be  dimensioned  for 
the  maximum  number  of  network  arcs  (MAXARC);  see  Figure  B.8.  The  arrays  SADECL 
and  SADECS  hold  up  to  10  values  per  LRU  failure  mode  and  SRU,  respectively. 
Consequently,  the  first  dimension  value  for  these  arrays  needs  to  match  MAXLFM  and 
MAXSRU,  respectively.  Figure  B.9b  shows  the  results  of  changing  the  default  values  to  be 
consistent  with  Figures  B.3,  B.4,  B.7,  and  B.8.  (Note  that  the  arrays  LOCAT,  DECVLO, 
DECVHI,  NLSCHG,  and  NSECHG  do  not  need  to  be  redimensioned.  This  is  also  true  for 
the  arrays  CARD,  WUC,  NAME,  CHARS,  and  SERN  in  the  labelled  COMMON  area 
TEMPIN.) 

SUMMARY  OF  DIMENSIONING  REQUIREMENTS.  As  indicated  in  previous 
paragraphs,  the  arrays  of  the  program  can  be  listed  in  sets  such  that  all  arrays  in  a  group 
must  be  dimensioned  consistently.  This  grouping  is  a  minor  reorganization  from  the  one  in 
Table  B.l  and  is  shown  in  Table  B.2. 

The  fourth  column  is  labelled  MAXLRU  to  indicate  that  it  is  an  alphabetical  listing 
of  the  arrays  which  must  be  dimensioned  for  the  maximum  number  of  LRUs  in  the  user's 
data  file.  The  column  contains  the  same  16  array  names  shown  in  Figure  B.2. 

Similarly,  the  seventh  column  lists  the  arrays  for  support  equipment  data.  Each  of 
these  must  be  dimensioned  for  the  maximum  number  of  SE  resources  in  the  user's  data 
file. 


The  third  column  is  labelled  MAXLFM  to  indicate  that  each  array  must  be 
dimensioned  for  the  maximum  number  of  LRU  Failure  Modes  in  the  user's  data  file.  The 
column  contains  the  26  arrays  of  Figure  B.3,  plus  3  arrays  from  Figure  B.5,  and  1  array 
from  Figure  B.9 

All  arrays  for  SRU  data  are  shown  in  the  last  column  -  32  arrays  from  Figure  B.4, 
plus  5  arrays  from  Figure  B.5,  and  1  from  Figure  B.9.  The  columns  labelled  MAXARC  and 
MAXNOD  contain  the  network  arc  related  arrays  and  the  network  node  related  arrays, 
respectively. 

The  two  remaining  columns,  labelled  MAXITM  and  MAXREF,  show  the  arrays  for  the 
SE  cross  reference  data. 
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IMPLICATIONS  FOR  DATA  FILES.  Changes  to  array  sizes  may  require  changes  to 
some  file  definition  control  cards  and/or  file  definition  statements  in  the  program. 
Changing  the  dimensions  for  LRU  failure  mode  arrays  requires  a  change  for  file  code  15, 
and  changes  to  SRU  array  dimensions  requires  a  change  for  file  code  16.  Similarly, 
changes  to  network  node  arrays  affect  the  file  definition  for  file  code  13,  and  changes  to 
network  arc  arrays  affect  file  code  14.  Figure  B.  10  shows  the  IBM  compatible  file 
definition  statements,  in  the  main  routine  of  the  program,  appropriate  for  default  sized 
arrays  and  those  definition  statements  modified  to  be  consistent  with  Figures  B.3,  B.4, 
B.7,  and  B.8. 
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022'? 0  0  SE7  RECORD  SIZE  FOR  RANLGK  FILES  1b  4  It 

Cc;><;u  0  IbK  FIRST  PARAMETER  AFTER  '('  lb  IhE  DIMENSIONED  SIZE  FOR  - 

I'c^L  C  IbK  LRU  FAILURE  MODES,  FG-15 

G2j40  C  IbK  ShU’S  ,  FC-16 

02350  C  DEFINE  FILE  15( 40,24 ,U,K15) 

G23tC  C  DEFINE  FILE  16(40, 26, U,M6) 

OEjtl  C  ILK  FGRThAN  Vi  STATEMENTS: 

02^62  C  VS  RECL  IS  24  •  A  FOR  FC-15 

02 'jtj  C  VS  RECL  IS  26  *  4  FOR  FC-16 

02364  OPEN  ( UNIT= 15 .STATUSs ' UNKNOWN' , ACCESS: ' D1 RECT' ,RECL=y6, 

0236-j  6  FORM= '  UNFORMATTED' ) 

C2366  OPEN  ( UNITs 16 .STATUSs ’ UNKNOWN ’ .ACCESSs ' DIRECT' , RECLs 1C4 , 

02j67  4  FORMs ' UNFORMATTED' ) 

1G5yO  C  IbM  FILE  DEFINITIONS  FOR  RANDOM  FILES  1 j  4  U  -  SECOND  PA RAM 
10606  C  IbM,  WITHIN  ’('  IS  MAXNOD+3  4  MAXARC,  AFTER  FIRST  RUN 

10610  C  IbM  CHANGE  TO  THE  LOWER  NUMBERS  NNGDES+3  4  NARCS 

10620  C 

1 06 jO  0  DEFINE  FILE  1 d( 50 , 203 , U ,  M 3 ) 

1 0640  C  DEFINE  FILE  14 ( 50 , 4CG , U , N 1 4) 

10050  0  IbK  FORTRAN  VS  STATEMENTS: 

1065 1  C  VS  RECL  FOR  FC-13  IS  ( MAXNOD  +  3)  *  4 

10652  C  VS  RECL  FOR  FC-14  IS  MAXARC  »  4 

1 065 j,  C  VS  AFTER  FIRST  RUN,  USE  NNODES+3  AND  NARCS  IN  FORMULAS 

10654  OPEN  ( UNITs 1 3, STATUSs' SCRATCH' .ACCESSs ' DIRECT’ ,RECL=b12, 

10655  4  FORM:' UNFORMATTED' ) 

10656  OPEN  (UNITs 14, STATUSs ' SCRATCH’ , ACCESSs • DIRECT' , 

10657  4  RECLs 1600, FORMs' UNFORMATTED' ) 

Fibu-e  L. 10a.  File  definition  statements  fo-  default  sizes. 

022?0  C  SET  RECORD  SIZE  FOR  RANDOM  FILES  15  4  16 

G2c20  C  IbM  FIRST  PARAMETER  AFTER  '('IS  THE  DIMENSIONED  SIZE  FOR  - 

02jo0  0  IbM  LRU  FAILURE  MODES,  FC-15 

02340  C  IbM  SRU'S  ,  FC-16 

02350  0  DEFINE  FILE  15( 90 ,24 , U , N15) 

02360  0  DEFINE  FILE  16(oO,26,U,N16) 

02361  C  IbM  FORTRAN  VS  STATEMENTS: 

C2302  C  VS  RECL  IS  24  •  4  FOR  FC-15 

02jtj  C  VS  RECL  IS  26  *  4  FOR  FC-16 

02364  OPEN  ( UNITs 15 .STATUSs ' UNKNOWN' , ACCESSs ' DIRECT' , RECLs96 , 

02365  &  FORMs ' UNFORMATTED ' ) 

G2_j66  OPEN  (UNITs 16, STATUSs 'UNKNOWN' .ACCESSs ' DIRECT' ,RECLs104, 

02367  4  FORMs ' UNFORMATTED' ) 

10590  C  IbM  FILE  DEFINITIONS  FOR  RANDOM  FILES  13  4  14  —  SECOND  PARAM 
1 0600  C  IbM  WITHIN  '('  IS  MAXNOD+3  4  MAXARC,  AFTER  FIRST  RUN 

10610  0  IbM  CHANGE  Tu  THE  LOmEK  NUMbERS  NNODES+3  4  NARCS 

10620  C 

1 OOjO  C  DEFINE  FILE  13( 50 , 35b , U , N1 3) 

10640  C  DEFINE  FILE  14(50, 1270, U,N14) 

10650  0  IBK  FORTRAN  VS  STATEMENTS: 

10651  C  VS  RECL  FOR  FC-13  IS  (MAXNOD  +  3)  *  4 

10652  C  VS  RECL  FOR  FC-14  IS  MAXARC  «  4 

10653  C  VS  AFTER  FIRST  RUN,  USE  NNODES+3  AND  NARCS  IN  FORMULAS 

10654  OPEN  (UNITs13,STATUSs'SCRATCH' .ACCESSs ' DIRECT' ,RECLs1432, 

10655  4  FCRMs ' UNFORMATTED' ) 

10656  OPEN  ( UNIT= 1 4 .STATUSs ' SCRATCH ' .ACCESSs 'DIRECT' , 

10657  4  RECLs5080, FORMs • UNFORMATTED’ ) 

Figure  B.IOb.  File  definition  statements  for  increased  sizes. 
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Fitju^e  b.10.  File  definition  statements 
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APPENDIX  C.  Additional  Dimensioning  Requirements 


Introduction.  This  appendix  was  prepared  to  supplement  Appendix  B,  NRLA 
Program  Array  Dimensions. 

Programs  Updated  with  Changes  #5.  If  your  copy  of  the  NRLA  program  has 
been  updated  with  NRLA  Changes  #5,  February  1984,  an  additional  dimen¬ 
sioning  requirement  exists. 

The  array  SERN  must  be  dimensioned  to  MAXSE  +  16.  In  the  default 
case,  the  SE  arrays  are  dimensioned  to  MAXSE  =  20.  Thus,  the  default 
size  for  SERN  is  36. 

If  the  SE  arrays  were  increased  to  35  as  in  fig  B.1,  page  62,  the 
dimensioned  size  for  SERN  must  be  increased  to  51  as  shown  below. 

SERN  with  default  size: 

1090  INTEGER  Cl ,C2,C12,C2PREV,SEN,SERN(36) 

SERN  with  increased  size  to  match  MAXSE  =  35: 

1090  INTEGER  Cl ,C2,C12,C2PREV,SEN,SERN(51 ) 

As  with  the  other  dimensioning  changes,  this  change  must  be  made  14 
times;  once  in  the  main  routine,  once  in  Block  Data,  and  once  in  every 
subroutine  except  SORT. 


Programs  Updated  with  Changes  06.  If  your  copy  of  the  NRLA  program  has 
been  updated  with  NRLA  Changes  #6,  May  1984,  the  dimensioning  process 
has  been  greatly  simplified.  To  redimension,  only  the  PARAMETER 
statements  need  to  be  modified.  These  PARAMETER  statements  are  located 
in  the  main  routine,  in  BLOCK  DATA,  and  in  every  subroutine  except  SORT. 

The  following  example  shows  redimensioning  the  program  from  the 
default  dimensions  to  accomodate  35  SE,  40  LRUs,  90  LRU  failure  modes, 
80  SRUs ,  a  cross-reference  size  of  500,  355  nodes,  and  1270  arcs.  (See 
Appendix  B  for  how  to  determine  array  sizes  required.) 

PARAMETER  statements  with  default  values: 

1035C  FOLLOWING  ARE  THE  PARAMETER  STATEMENTS 

1036C  TO  ADJUST  DIMENSIONING  REQUIREMENTS  SIMPLY  CHANGE 

1037C  THESE  VALUES  IN  ALL  SUBROUTINES 

1038C 

1039  PARAMETER  (MAXLRU=25,MAXFM=40,MAXSRU=40) 

1040  PARAMETER  (MAXSE=20,MAXREF=210,MAXITM=210) 

1041  PARAMETER  (MAXNOD=200,MAXARC=400,MARCP2=402) 

1042  PARAMETER  (MAXSEP=36) 

104jC 


PARAMETER  statements  with  increased  array  sizes: 
1035C  FOLLOWING  ARE  THE  PARAMETER  STATEMENTS 
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1036C  TO  ADJUST  DIMENSIONING  REQUIREMENTS  SIMPLY  CHANGE 

1037C  THESE  VALUES  IN  ALL  SUBROUTINES 

1038C 

1039  PARAMETER  (MAXLRU=80,MAXFM=90,MAXSRU=40) 

1040  PARAMETER  (MAXSE=35,MAXREF=500,MAXITM=500) 

1041  PARAMETER  (MAVNOD=355,MAXARC=1270,MARCP2=1272) 

1042  PARAMETER  (MAXSEP=51) 

1043C 


Dimensioning  NRLA  Without  Use  of  PARAMETER  Statements.  If  your  FORTRAN 
does  not  support  PARAMETER  statements,  the  following  procedure  should  be 
followed  to  dimension  NRLA. 

1.  Following  the  guidelines  in  Appendix  B  of  the  NRLA  Programmer's 
Guide,  determine  the  array  sizes  needed  to  fulfill  your  program 
requirements. 

2.  Delete  or  comment  out  all  the  PARAMETER  statements. 

3.  Make  the  appropriate  changes  to  the  program  arrays.  Using 
global  changes,  change  all  occurrences  of  the  specified  string  to  the 
numbers  computed  in  Step  1  as  follows: 

Change  all  to  the  maximum 

occurrences  of  number  of 

( MAXLRU  LRUs 

( MAXFM  Failure  modes 

(MAXSRU  SRUs 

(MAXSE  Support  Equipment  (SE) 

(MAXSEP  MAXSE  +  16 

(MAXITM  SE  specified  on  "32,  42,  or  52"  cards 

(MAXREF  SE  to  item  relationships 

( MAXNOD  Network  nodes 

CMAXARC  Network  arcs 

(MARCP2  MAXARC  2 


NOTE:  Changing  all  occurrences  of  the  string  without  the  "("  in  front 
of  it,  will  result  in  some  changes  being  made  that  should  have  remained 
unchanged.  For  example,  if  all  occurrences  of  "MAXLRU"  instead  of 
"(MAXLRU"  were  changed  to  "40",  the  line  "IF  (NLRU.LE. MAXLRU)  GO  TO  320" 
would  have  been  changed  to  "IF  (NLRU.LE. 40)  GO  TO  320".  As  long  as  you 
never  redimensioned  the  model,  this  extra  change  would  be  fine.  However, 
if  you  do  need  to  redimension  the  model,  this  line  could  be  easily 
overlooked  and  could  cause  errors. 

4.  To  make  statements  such  as  "IF  ( NLRU.LE. MAXLRU)  GO  TO  320" 
executable,  DATA  statements  must  be  inserted  in  the  program  to  give 
these  variables  values.  For  example,  if  you  had  dimensioned  NRLA  to  have 
40  LRUs,  90  failure  modes,  80  SRUs,  35  SE,  500  SE  specified  on  "32,  42, 
or  52"  cards,  500  SE  to  item  relationships,  355  nodes,  and  1270  arcs, 
the  following  statements  must  be  inserted  in  each  subroutine: 


DATA  MAXLRU , MAXFM , MAXSRU/40 ,90,80/ 

DATA  MAXSE , MAXSEP , MAXI TM , MAXREF/35 ,51,500, 500/ 
DATA  MAXNOD , MAXARC , MARCP2/ 355 , 1 27 0 , 1 27 2/ 
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